excel - 获取点击形状的地址

Question

我正在寻找获得 的方法点击形状的地址 (位置/位置)在它的电子表格上。
换句话说，我想获取在工作表上单击的形状的地址。
我正在使用此代码查找 单击形状的名称 & 编号 它工作正常:

Dim CallingShapeName As Variant

Dim CallingShapeID As Variant

CallingShapeName = ActiveSheet.Shapes(Application.Caller).Name

Debug.Print CallingShapeName

CallingShapeID = ActiveSheet.Shapes(Application.Caller).ID

Debug.Print CallingShapeID

但是当我尝试获取 点击形状的地址 使用此代码它不起作用:

Dim ShapeAddress As Range

Set ShapeAddress = ActiveSheet.Shapes.Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address)

Debug.Print ShapeAddress

Answer 1

这样做的方法是将单击的形状分配给一个变量，然后您可以使用该变量访问其属性，如

Sub Rectangle1_Click()

Dim s As Shape

'assign object variable to clicked shape
Set s = ActiveSheet.Shapes(Application.Caller)

'then access its properties
Debug.Print s.Name
Debug.Print s.TopLeftCell.Address
Debug.Print s.BottomRightCell.Address
'etc

End Sub