画像位置

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

上位置は「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

画像位置
画像位置

 

< スポンサーリンク >