获取选定的分组形状的名称

我创build了两个椭圆形对象，默认命名为“椭圆1”和“椭圆2”。 我将它们分组并将其命名为“MergedOvals”。 我为新形成的组形状分配了一个macros。

macros有代码，当我点击它时，给出形状对象的名称：

Sub ClickedShape() MsgBox ActiveSheet.Shapes(Application.Caller).Name & " Clicked" End Sub 

问题是，当我点击分组的形状时，我期望MsgBox显示“MergedOvals Clicked”，但取而代之的是，原来的“Oval 1”或“Oval 2”的名称显示取决于光标接近椭圆。

有没有办法显示分组名称？

Answer 1

如上所述，使用对象，以便您可以访问智能感知。 这样你就可以发现你拥有的所有Object Properties 。

这是你正在尝试？

 Sub ClickedShape() Dim shp As Shape Set shp = ActiveSheet.Shapes(Application.Caller) MsgBox shp.ParentGroup.Name & " Clicked" End Sub