Excel VBA 図形(オートシェイプ)の位置をセルの位置に設定する方法

図形(オートシェイプ)の位置をセルの位置に設定する方法

タイトル通り、図形の位置をセルに合わせた位置と図形の位置を合わせる方法について解説します。

指定のセルの位置に図形の追加するサンプルコード

Sub setShapePosition()
    ActiveSheet.Shapes.AddShape msoShapeRectangle, Range("B2").Left, Range("B2").Top, 100, 100
End Sub

図形の位置を変更するサンプルコード

Sub setShapePosition2()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 100).Name = "c"
    With ActiveSheet.Shapes("c")
        .Top = Range("B2").Top
        .Left = Range("B2").Left
    End With
End Sub