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

[CATerpillar]

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

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

з.ы. если в место фигур использовать картинки я думаю возникнут проблемы с закрашиванием, или я ошибаюсь?

[mchip]

После создания фигуры напиши так:

Imya1=a.Name

В переменной Imya1 будет храниться имя твоего прямоугольника("Прямоугольник 32")

Далее делаешь кнопки по цветам и каждой кнопке:

ActivePresentation.Slides(1).Shapes (Imya1).Fill.ForeColor.RGB = RGB(x, y, z)

Вот как то так.
Перетаскивание осуществляется так же. Вот пример.

[CATerpillar]

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

[viter.alex]

Не знаю как в PowerPoint, но думаю? что также как и в Word, выражение Selection.Shapes(1) даст выбранную фигуру.

[mchip]

Создаешь модуль. В модуле объявляешь коллекцию.
При создании фигуры добавляешь имя в коллекцию
обращение к имени по индексу коллекции.
Все просто...
В файле создать 2 или более фигуры . После чего 1 и 2 фигуры будут двигаться в разных направлениях.

[CATerpillar]

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

[CATerpillar]

очень очень очень надеюсь на вашу помощь

[lazy_tom_cat]

Опять же, зачем макросы? PowerPoint для того и создан чтобы воспроизводить анимационные эффекты! Почитай лучше справку по PowerPoint, я уверен ты найдушь то что тебе нужно без всяких там макросов

[CATerpillar]

к сожалению стандартными средствами power point я этого сделать не смог

[mchip]

Ну вот! Теперь при щелчке на фиугре происходит ее перемещение.
Но честно сказать реализовано все это немного коряво, и честно говоря я не могу представить где это пригодиться...
Но факт на лицо, т.е. на экране

Любая созданая фигура двигается самостоятельно(при щелчке на ней).

Пример в фале.