Excelで指定のセル上に図を配置したい

質問

Excel VBAで、シート上に図（四角形）を配置しようと思ってます。
イメージ的には、ALTキーを押しながらセルとぴったりフィットする図形（四角形）を作成したいのですが、マクロで生成したコードを見ると下記のように座標での指定になってます。

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 102#, 210#, 76.5, 15#).Select

もしこれをセルで指定する方法がありましたら教えて下さい。宜しくお願いします。

回答No.2

imogasi · ベストアンサー

下記が参考になりませんか。
下記例のcells(2,2)--->cells(i,j)に考えなおしてください。
Sub test01()
a = Cells(2, 2).Top
b = Cells(2, 2).Left
c = Cells(2, 2).Width
d = Cells(2, 2).Height
MsgBox "t=" & a & ",l=" & b & ",w=" & c & ",h=" & d
End Sub
一応当方でテスト済み。

お礼

例を載せて頂いてありがとうございます！
思っている通りの動作が確認できました！

回答No.1

a-kuma

フィットさせるセルが、変数 r に入っているとして、r.Left、r.Top、r.Width、r.Height で
それぞれの値が取得できると思います。

＃ 試してないので、一応、自信なしとしておきます

お礼

早速のご回答ありがとうございました！