掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExcelのAoutShapeをグループ化するには (ID:43954)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
試してみました。 なぜ、この文法になるのか理解はできません（誰か助けて...）が、とりあえず動きました。 procedure TForm1.Button1Click(Sender: TObject); const msoShapeRectangle = 1; msoShapeOval = 9; var // App: IDispatch; App, ABook, ASheet, AVar, AShapes, Shape1, Shape2: OleVariant; begin try App := CreateOleObject('Excel.Application'); App.Visible := True; ABook := App.WorkBooks.Add; ASheet := App.ActiveSheet; AVar := VarArrayCreate([0, 1], varVariant); AVar[0] := ASheet.Shapes.AddShape(msoShapeRectangle, 200, 200, 100, 100).Name; AVar[1] := ASheet.Shapes.AddShape(msoShapeOval, 250, 250, 100, 100).Name; ASheet.Shapes.Range[(AVar)].Group; // ここの[()]が[]だとNG finally end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.