Страницы: 1
RSS
Определение названия той фигуры, по которой щелкнули
 
Здравствуйте.
Посоветуйте -как вывести MsgBox с названием той фигуры, по которой щелкнули мышкой ?

Понимаю, что на эту фигуру должен быть навешен макрос с наличием Application.Caller:
Код
ActiveSheet.Shapes(Application.Caller)
Но как это применить в макросе в моей задаче - не понимаю.
Подскажите.
 
Код
Sub Name_Shape()
Dim sShName As String
sShName = Application.Caller
MsgBox sShName
End Sub
 
V, спасибо.
Заработало.
Страницы: 1
Наверх