More than 5 years have passed since last update.

[VBA]図形のアドレスを取得し、図形があるセルの内容を取得する

Last updated at 2019-10-29Posted at 2019-08-31

アクティブシート上にある図形の中で四角形の図形のみ、図形があるセルの内容を取得します。

Dim shapeR As Range

For Each i In ActiveSheet.Shapes
    If i.AutoShapeType = msoShapeRectangle Then 
        MsgBox i.TopLeftCell.Value
    End if
Next

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up