Excel VBA シート上のオートシェイプ（画像）の上位置、左位置を設定-Top、Left

シート上にある画像（オートシェイプ）の上位置、左位置を設定する記録です。

上位置は「Top」プロパティ、左位置は「Left」プロパティを使います。

< スポンサーリンク >

例

ポイントで設定

上から50ポイント、左から50ポイントの位置に画像を設定してみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp
        .Top = 50
        .Left = 50
    End With
End Sub

セルに合わせる

上位置、左位置をB2のセルの上位置、左位置に合わせてみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp
        .Top = Range(“B2”).Top
        .Left = Range(“B2”).Left
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします