помогите пожалуйста PowerPoint и VBA

[viter.alex]

Решение интересное. Я думал классы с обработчиками событий прикрутить, но с ходу, по аналогии с формой, не получилось.
CATerpillar, это решение, как мне кажется, — уже полдела

[CATerpillar]

большое спасибо за ответ буду разбираться дальше как только что то получится или не получится сразу сообщу

[CATerpillar]

огромное спасибо за помощь, только один вопрос при удалении фигуры код от нее остается можно ли как то решить эту проблему, иначе в процессе использования презентации будет оставаться большое количество мусора

[mchip]

Исходя из поставленной задачи, мне кажется лучше будет создать фигур по 30 каждого типа и не создавать фигуры а переводить в режим Visible.
Тогда снимается вопрос с разросшимся кодом. На счет удаления, раз можно записать то можно и удалить...:-))

[CATerpillar]

Сообщение от mchip

раз можно записать то можно и удалить...:-))

но как это сделать?

[mchip]

ActivePresentation.VBProject.VBComp onents("Name").CodeModule.

Набери в строке VB Edit и посмотри какие свойства возможны (Find, DeleteLines, CountOfLines, ...). Посмотри их описания.

Поэкспериментируй, поищи в интернете...

[CATerpillar]

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

[mchip]

ActivePresentation.Slides(1).Shapes (Imya1).ZOrder msoSendToBack позади всех

ActivePresentation.Slides(1).Shapes (Imya1).ZOrder msoBringForward впереди всех

ну и так далее...

[CATerpillar]

большое спасибо

[CATerpillar]

ребята возник еще один вопрос как определить существует ли фигура на листе? т.е. как выглядит код который выполняет эту проверку?