Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2009, 10:57   #21
CATerpillar
Пользователь
 
Регистрация: 12.03.2009
Сообщений: 24
По умолчанию

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

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

з.ы. если в место фигур использовать картинки я думаю возникнут проблемы с закрашиванием, или я ошибаюсь?
Вложения
Тип файла: rar создание и закрашивание фигур.rar (36.0 Кб, 39 просмотров)

Последний раз редактировалось CATerpillar; 18.03.2009 в 11:00.
CATerpillar вне форума Ответить с цитированием
Старый 18.03.2009, 13:49   #22
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

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

Imya1=a.Name

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

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

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

Вот как то так.
Перетаскивание осуществляется так же. Вот пример.
Вложения
Тип файла: zip раскраска и перемещение.zip (35.7 Кб, 43 просмотров)
Можно сделать все! Было бы время, да деньги...

Последний раз редактировалось mchip; 18.03.2009 в 13:58.
mchip вне форума Ответить с цитированием
Старый 18.03.2009, 18:54   #23
CATerpillar
Пользователь
 
Регистрация: 12.03.2009
Сообщений: 24
По умолчанию

большое спасибо,а как сделать так, чтобы можно было перетаскивать фигуры мышкой, задает ли powerpoint фигуре по которой был щелчек какие либо свойства (например selection)? если нет то, как это можно через WinAPI какую именно процедуру нужно подключать? пожалуйста подскажите дело в том, что после того как я перекрасил и подвигал одну фигуру я не смогу к ней вернуться снова, после того как создал следующую
CATerpillar вне форума Ответить с цитированием
Старый 18.03.2009, 19:05   #24
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Не знаю как в PowerPoint, но думаю? что также как и в Word, выражение Selection.Shapes(1) даст выбранную фигуру.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 18.03.2009, 21:48   #25
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Создаешь модуль. В модуле объявляешь коллекцию.
При создании фигуры добавляешь имя в коллекцию
обращение к имени по индексу коллекции.
Все просто...
В файле создать 2 или более фигуры . После чего 1 и 2 фигуры будут двигаться в разных направлениях.
Вложения
Тип файла: zip раскраска и перемещение 2 фигур.zip (36.7 Кб, 34 просмотров)
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 20.03.2009, 10:33   #26
CATerpillar
Пользователь
 
Регистрация: 12.03.2009
Сообщений: 24
По умолчанию

спасибо, информация полезна и она мне пригодится, но сейчас мне нужно немного не то нужно определить по какой фигуре был щелчок мышкой какую функцию через WinAPI надо подключить, если VBA в чистом виде этого не умеет?
CATerpillar вне форума Ответить с цитированием
Старый 20.03.2009, 15:12   #27
CATerpillar
Пользователь
 
Регистрация: 12.03.2009
Сообщений: 24
По умолчанию

очень очень очень надеюсь на вашу помощь
CATerpillar вне форума Ответить с цитированием
Старый 20.03.2009, 15:19   #28
lazy_tom_cat
Пользователь
 
Регистрация: 20.03.2009
Сообщений: 18
По умолчанию

Опять же, зачем макросы? PowerPoint для того и создан чтобы воспроизводить анимационные эффекты! Почитай лучше справку по PowerPoint, я уверен ты найдушь то что тебе нужно без всяких там макросов
VBA нужно использовать тогда, когда стандартные средства Excel бессильны....
lazy_tom_cat вне форума Ответить с цитированием
Старый 20.03.2009, 15:41   #29
CATerpillar
Пользователь
 
Регистрация: 12.03.2009
Сообщений: 24
По умолчанию

к сожалению стандартными средствами power point я этого сделать не смог
CATerpillar вне форума Ответить с цитированием
Старый 20.03.2009, 16:25   #30
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

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

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

Пример в фале.
Вложения
Тип файла: zip перемещение.zip (43.5 Кб, 83 просмотров)
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, пожалуйста c vba! Я дрова не понимаю, вам легко будет! em0071 Microsoft Office Excel 3 19.06.2008 23:08