エクセルの図形(線)の情報

シート内に作図されている線の情報を調べるにはどうすればいいのでしょうか？
下記のX1～Y2の値が知りたいのですが。

ActiveSheet.Shapes.AddLine(X1, Y1, X2, Y2).Select

あくまでも既に存在している線が対象です。
よろしくお願いします。

No.1 ベストアンサー 回答者： zap35 回答日時： 2006/05/25 03:27

そのshapeのtop、left、height、widthプロパティで知ることができます。

例えば
ActiveSheet.Shapes.AddLine(10, 20, 150, 100).Select
で描画した線のプロパティ値は
left：9.75
top：20.25
width：140.25
height：79.9
と表示されます。始点が(9.75,20.25)、終点は(150,100.15)となる計算でしょう。

shape名はワークシート上で「新しいマクロを記録」にして、その線をセレクトすればモジュールシートに書き込まれます。

後はイミディエイトウィンドウで
?ActiveSheet.Shapes("shape名").width
のように聞いてやればいいでしょう

この回答へのお礼

ありがとうございます。

お礼日時：2006/05/25 15:08