TopLeftCell

Excel VBAでシート上にある画像や図形に接している左上のセルを取得する記録です。

左上のセルは「TopLeftCell」プロパティを使います。

< スポンサーリンク >





画像や図形に接している左上のセルを取得し、メッセージで表示してみます。

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

    With shp
        MsgBox .TopLeftCell.Top
    End With
End Sub

.TopLeftCell
.TopLeftCell

 

画像の位置を接している左上のセルの上位置、左位置に合わせます。

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

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

.TopLeftCell
.TopLeftCell

 

< スポンサーリンク >