Как получить имя фигуры (имя группы) - PullRequest
0 голосов
/ 17 июня 2020

Что делает код: У меня есть следующий код: То есть я могу получить "ParentGroup.Name", щелкнув фигуру группы.

Проблема: Для двух или более групповых фигур каждая другая группа имеет одинаковые некоторые дочерние фигуры

Пример: Gruop_1 имеет четыре дочерних фигуры , а имена дочерних фигур - Shape_1, Shape_2, shape_3 и Shape_4.

Gruop_2 также имеет те же четыре дочерних фигуры. Дочерние фигуры также называются Shape_1, Shape_2, shape_3, Shape_4.

Когда я нажимаю Gruop_1 , результат MsgBox будет Group_1 , но когда я нажимаю Group_2 , результат также будет Gruop_1.

Что я хочу сделать: Как мне получить Gruop_2 , когда я нажмите Gruop_2 ?

Sub GetshapeName()
    On Error GoTo line1
    Dim shp As shape

    Set shp = ActiveSheet.Shapes(Application.Caller).ParentGroup
line1:
    If shp Is Nothing Then
        Set shp = ActiveSheet.Shapes(Application.Caller)
    End If
    MsgBox shp.Name
End Sub

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...