Работа с объектами

[Vladislava-smile]

А можно ли в связке Power Point и VBA делать следующие вещи:
В слайде презентации у нас есть 3 прямоугольника. Нужно, что бы при наведении или при щелчке на этот объект при просмотре презентации выдавалось сообщение о названии этого объекта и его индексе. Писать макрос на каждый объект и привязывать его через действие не вариант - таких объектов по всей презентации около 500 штук. Нашла только, чтобы выводился общий список.

Код: (vb)

Sub Auto_open()
Set sh = ActiveWindow.Selection.SlideRange.Shapes
Im = ""
For Each fr In sh
Im = Im & fr.Name & vbCrLf
Next
MsgBox Im
End Sub

(( Я в тупике, помогите, пожалуйста.

[Vladislava-smile]

Нашла блок

Код: (vb)

Sub Shape3_Clicked()
End Sub

Только вот осталось понять как эту 3 на примере вытаскивать и записывать в переменную.

[vikttur]

Дубль темы. Одна удалена.
Есть кнопка, предназначенная для оформления кода.

Это точная копия части сообщения из первой Вашей темы.
Вы опять создали тему с дублем (ЗАЧЕМ?), причем осознанно - и в прошлой паре близнецов, и в этой дополняете ответом обе!
Вы опять не оформили код, как положено!
Вы так и проситесь на блокирование (бан) Вашей учетной записи на этом ресурсе.
Пока что бан-предупреждение на сутки.

[Дмитрий Щербаков(The_Prist)]

В общем либо использовать классы(Работа с модулями классов), либо прописывать действие на каждый объект. Хотя, если выложите пример - может чего и можно будет придумать. Например назначить всем объектам один код и в нем определять объект.