掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.