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

[CATerpillar]

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

HELP

[EducatedFool]

Так в чём проблема?
Включаете запись макросов, и выполняете нужные действия.

Потом мы уже подредактируем код при необходимости
(если Вы объясните, что именно, и в какой последовательности надо сделать)

[CATerpillar]

ок, а как осуществить запись макроса? чтой то я не могу ничего похожего найти (office 2007)

[viter.alex]

Вот что говорит справка:

Запись макросов, использовавшаяся для автоматизации выполнения частых задач, отсутствует в приложении Microsoft Office PowerPoint 2007. Вместо нее можно использовать Visual Basic для приложений (VBA) (VBA (Visual Basic for Applications). Версия макроязыка программирования Microsoft Visual Basic, используемая для программирования приложений для Microsoft Windows и поставляемая с некоторыми программами корпорации Майкрософт.) для создания или изменения макросов (Макрос. Действие или набор действий, используемые для автоматизации выполнения задач. Макросы записываются на языке программирования Visual Basic для приложений (VBA).). Чтобы создать или изменить макрос с помощью Visual Basic для приложений, выполните следующие действия.


На вкладке Разработчик в группе Программа нажмите кнопку Макросы.
Можно отобразить вкладку «Разработчик», если она недоступна.

1. В диалоговом окне Макрос в поле Имя макроса введите имя макроса.
2. В списке Где выберите шаблон (Шаблон. Файл или файлы, содержащие структуру и инструменты для создания таких элементов законченных файлов как стиль и макет страницы. Например, шаблоны Microsoft Word позволяют создавать отдельные документы, а шаблоны Microsoft FrontPage — целые веб-узлы.) или презентацию, где требуется сохранить макрос.
3. В поле Описание введите описание макроса.
4. Чтобы открыть Visual Basic для приложений, нажмите кнопку Создать.

Чтобы показать вкладку «Разработчик»

1. Нажмите кнопку Microsoft Office и выберите команду Параметры PowerPoint.
2. В диалоговом окне Параметры PowerPoint нажмите кнопку Основные.
3. В группе Основные параметры работы с PowerPoint установите флажок Показывать вкладку «Разработчик» на ленте и нажмите кнопку ОК.

Поставь себе 2003 Powerpoint и запиши макрос в нем.

[CATerpillar]

огромное спасибо за помощь все получилось записал макрос в 2003 офисе, получившийся код подправил и вставил в 2007 офисе все заработало =)

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

[EducatedFool]

Прикрепите файл с макросом.
Укажите, с какой фигуры надо брать цвет.

Можно просто изменять свойство ColorIndex - оно принимает значение от 0 до 56 (по крайней мере, так в Excel. В PowerPoint тоже должно быть что-то вроде этого)

[viter.alex]

Для фигуры (Shape) цвет заливки это Shape.Fill.BackColor, а цвет контура — Shape.Fill.ForeColor.
Читаете с одной фигуры и записываете в другую. Но с примером можно будет быстрее

[CATerpillar]

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

[EducatedFool]

в идеале хотелось сделать чтобы цвет можно было брать с линейки цветов

Макрос написать несложно - чтобы взять цвет одной фигуры, и покрасить в этот цвет другую, требуется одна строка кода.

Но для выполнения этого действия макросу надо знать, с какой фигуры считывать цвет, и какую красить.

Можно выделять 2 фигуры, и запускать макрос - но как определить, какую из выделенных фигур надо красить?

Можно выдавать запросы типа - 1) выберите фигуру для покраски, 2) выберите фигуру с нужным цветом, но это всё только усложнит работу...

А как Вы себе представляете этот процесс?

Пока можете посмотреть пример макроса, русиющего разноцветные кнопки на слайде.
Откройте файл, и запустите макрос СозданиеКнопок


PS: Впервые работая с PowerPoint, обнаружил, что объектная модель проработана намного хуже, нежели в Word и Excel
Не нашёл даже элементарной функции ActiveSlide
И ничего похожего на application.screenupdating ...

[viter.alex]

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

…Но для выполнения этого действия макросу надо знать, с какой фигуры считывать цвет, и какую красить…

Вместо цветных прямоугольников можно использовать ToggleButton, окрашеный в нужный цвет и окрашивать фигуру в тот цвет, какая ToggleButton нажата. Времени нет, а то занялся бы плотнее.

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

…Впервые работая с PowerPoint, обнаружил, что объектная модель проработана намного хуже, нежели в Word и Excel
Не нашёл даже элементарной функции ActiveSlide
И ничего похожего на application.screenupdating ...

Да уж. Похоже, что у девелоперов вдохновение уходило по мере разработки от Word до Outlook