Excel VBAでシート上にある画像や図形に接している左上のセルを取得する記録です。
左上のセルは「TopLeftCell」プロパティを使います。
< スポンサーリンク >
例
画像や図形に接している左上のセルを取得し、メッセージで表示してみます。
Sub test()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(1)
With shp
MsgBox .TopLeftCell.Top
End With
End Sub
画像の位置を接している左上のセルの上位置、左位置に合わせます。
Sub test()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(1)
With shp
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
End Sub
こんな記事も書いています