Как из макроса определить какой Shape его вызвал

[Ded2007]

Упрощенно:
1. Инструментом Рисование/Надпись создаем надписи Москва, Киев, Питер
2. Каждой из них присваиваем макрос Макрос1.

Внимание вопрос:Как в макросе узнать по какой надписи щелкнул юзер?

Доп. вопрос:

Код: Выделить всё

Set myDocument = Worksheets(1)
  For Each sh In myDocument.Shapes
    If sh.Type = msoTextBox Then
    ActiveSheet.Shapes(e).Select
    With Selection
      .OnAction = "Макрос 1"
    End With
  End If
Next


Т.е. можно пробежаться по надписям и присвоить им один и тот же макрос, а нельзя ли к ним привязать функцию с аргументом. Для первой надписи Функция(1), для второй Функция(2) и т.д.?

[RayShade]

Есть проперть actioncontrol, по моему у commandbars.

Она содержит ссылку на контрол, который был активирован.

Если ее анализировать в макросе то, вполне можно понять, какой контрол активировал макрос

[Ded2007]

Есть проперть actioncontrol, по моему у commandbars.
Она содержит ссылку на контрол, который был активирован.
Если ее анализировать в макросе то, вполне можно понять, какой контрол активировал макрос

Насколько я понял у Shapes такого свойства нет. Или я не прав?
Вот это работает для CommandBars

Код: Выделить всё

Sub whichButton()
Select Case CommandBars.ActionControl.Tag
    Case "1"
        MsgBox ("Button 1 clicked.")
    Case "2"
        MsgBox ("Button 2 clicked.")
    Case "3"
        MsgBox ("Button 3 clicked.")
End Select
End Sub

НО я не могу это переложить на нарисованные фигуры (звездочки на карте) или надписи (на той же карте). Чего-то не дотягиваю?

[GSerg]

1. Присвоить аргумент нельзя, и
2. Application.Caller

[KL]

Код: Выделить всё

Sub Macro()
    MsgBox Worksheets(1).Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

[Ded2007]

Спасибо!

Все гениальное просто

[RayShade]

Блин. Это я с менюхой перепутал. не думал что onaction есть еще у кого то еще