[Vladislava-smile]

С овалами разобралась уже. Спасибо. Под запуском подразумевается показ слайдов.

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

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

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