掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＥＸＣＥＬで選択した複数の図形を取得するには？ (ID：30405)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
スマイリィフェイス？ そないなモンあるんかい。 var i, cnt: Integer; begin .......... with ExcelWorksheet1 do begin Shapes.AddLine(0, 0, 200, 200); Shapes.AddShape(Office_TLB.msoShapeOval, 100, 100, 150, 150); Shapes.AddShape(Office_TLB.msoShapeDiamond, 250, 0, 50, 50); Shapes.AddShape(Office_TLB.msoShapeDonut, 250, 50, 50, 50); Shapes.AddShape(Office_TLB.msoShapeSmileyFace, 250, 100, 50, 50); Shapes.AddShape(Office_TLB.msoShapeHeart, 250, 150, 50, 50); Shapes.AddShape(Office_TLB.msoShapeSun, 250, 200, 50, 50); Shapes.AddShape(Office_TLB.msoShapeMoon, 250, 250, 50, 50); Shapes.SelectAll; cnt := Variant(Parent).Parent.Selection.ShapeRange.Count; // ShowMessage(IntToStr(cnt)); for i:=1 to cnt do begin ShowMessage(Shapes.Item(i).Name); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.