ExcelのAoutShapeをグループ化するには (ID:43956)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VarArrayOf()を使用すれば？ procedure TForm1.Button1Click(Sender: TObject); const msoShapeRectangle = 1; msoShapeOval = 9; var App, ABook, ASheet, AVar: OleVariant; Names: array[0..1] of Variant; begin try App := CreateOleObject('Excel.Application'); App.Visible := True; ABook := App.WorkBooks.Add; ASheet := App.ActiveSheet; Names[0] := ASheet.Shapes.AddShape(msoShapeRectangle, 200, 200, 100, 100).Name; Names[1] := ASheet.Shapes.AddShape(msoShapeOval, 250, 250, 100, 100).Name; ASheet.Shapes.Range[VarArrayOf(Names)].Group; // ここの[()]が[]だとNG finally end; end;