Power Point

Программирование на Visual Basic for Applications
Walentin
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 22.03.2004 (Пн) 15:34
Откуда: Rostov-on-Don

Power Point

Сообщение Walentin » 22.03.2004 (Пн) 16:46

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

Заранее спасибо )

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 23.03.2004 (Вт) 11:26

1. В самом Power Point пробовали? :)

2. Открываем редактор VBA нажатием ALT+F11 в (1) и смотрим. Там все есть.

3. Это всецело будет зависеть от того, как вы будете все реализовывать :)

Ilya Vasilyev
Постоялец
Постоялец
 
Сообщения: 820
Зарегистрирован: 06.08.2002 (Вт) 5:36
Откуда: Russia, Omsk

Сообщение Ilya Vasilyev » 24.03.2004 (Ср) 14:32

:arrow: Walentin
На все твои вопросы могу дать ответы... принцип работы со слайдами при проектировке и при трансляции различны... стучи на мыло, завтра отвечу... просто сейчас завал работы - сорри...
Изображение
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали

Ilya Vasilyev
Постоялец
Постоялец
 
Сообщения: 820
Зарегистрирован: 06.08.2002 (Вт) 5:36
Откуда: Russia, Omsk

Сообщение Ilya Vasilyev » 25.03.2004 (Чт) 6:25

Dim St as String
St = ActivePresentation.Slides.Add.Name
Получим имя вновь созданного слайда, соответственно
ActivePresentation.Slides(St).Delete
- удалить

St = ActivePresentation.Slides(...).Shapes.AddLabel(...).Name
добавить тектовый лейбл... параметры см. в хелпе по AddLabel
при этом в St получаем имя вновь созданного объекта
--H--.AddShape(...)
добавить форму (прямоуг., круг,...), также см. в хелпе

Далее
ActivePresentation.Slides(...).Shapes(St).{параметр}={значение}
список доступных параметров и значений - из хелпа

и все в том же духе...

Если на активном слайде (который сейчас на экране) произошли изменения, то если у тебя Office 2k или ниже - необходимо сделать переход на этот же самый слайд
ActivePresentation.SlideShowWindow.View.GotoSlide ActivePresentation.Slides(...).SlideIndex
если Office XP или выше, то такой переход необязателен... когда все изменения на слайде завершаться, и транслятор завершит выполнение всех процедур - слайд автоматически обновится, причем эффекта смены слайда не будет (иногда очень полезно)

По части Экселя я таки не понял суть вопроса...
Спрашивай если что...
Изображение
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 101

    TopList