Excel VBA 図形のアドレス(セル番地)を取得する方法 Shapes.Address

図形のセル番地を取得する方法

やりたい事

図形の左上と右下がどのセルにあるのかを取得する方法を解説します。

下の図の図形の場合、左上が「A1」セルに右下が「C9」にあります。その情報を取得してD列にセル番地を出力しています。

図形のセル番地を取得するサンプルコード

Sub getShapeAddress()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 100).Name = "四角"
    Range("D1") = ActiveSheet.Shapes("四角").TopLeftCell.Address
    Range("D2") = ActiveSheet.Shapes("四角").BottomRightCell.Address
End Sub

参考資料

Docs（Shapeオブジェクト）

Docs（Range.Addressプロパティ）