Здравствуйте. Возможно ли динамическое представление данных в уже собранной презентации?
Идея такая: Презентация постоянно отображает некоторые данные. Данные разбиты на логические группы слайдами. Эти данные меняются. Соответственно, презентация, при каждом следующем показе слайда, показывает уже обновленные данные. Источником данных для презентации пусть служит текстовый файл. Хотя, по большому счету, это значения не имеет. Возможно ли такое реализовать и что для этого нужно сделать?

Цитата

зачем тогда вообще связи делать какие-то, c OLE мудрить

если данные из источника вставляются в неизменном виде, то предложенный способ гораздо проще

Цитата

куда этот код вписать

1. в VBE создаем модуль класса , допустим Class1 (переименуй на свое усмотрение) и объявляем в нем соотв. объектную переменную:

Код

Public WithEvents App As PowerPoint.Application

здесь же обрабатываем все события объекта

Код

Private Sub App_SlideShowEnd(ByVal Pres As Presentation) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'вычисляем значение NewName (либо меняем путь к NewName,  'либо  - данные по указанному пути) - и вперед... With ActivePresentation    .Slides(1).Shapes(1).LinkFormat.SourceFullName=NewName    .UpdateLinks    .Saved = msoTrue End With End Sub

Если презентация идет непрерывным циклом, то меняем все здесь

Код

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow) ''''''''''''''''''''''''' End Sub

2. в обычном модуле прописываем

Код

Public pp As New Class1 Sub PressME() Set pp.App = Application End Sub

3. связываем стартовую процедуру(2) с каким-либо элементом 1-го слайда: из контекстного меню: настройка действия -запуск макроса.
Наверняка есть более элегантные способы автозапуска, но я в РР глубоко не копал, а аналог autoexec в PPoint отсутствует

Спасибо, вроде получилось.
Сделал для начала так:

Код

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow) i=i+1 ActivePresentation.Slides(2).Shapes(2).TextFrame.TextRange.Text = i End Sub

текст надписи меняется соответственно значению переменной "i". Все хорошо.

А чтоб было совсем хорошо, надо знать какой сейчас слайд будут показывать и в соответствии с этим уже что-то предпринимать. )) Это видно из приведенного кода: переменная увеличивается каждый раз при смене каждого слайда.

Код

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow) '''''''''''''''''' 'получаем ссылку на след. слайд Set NextSlide = Wn.View.Slide NextSlideName = NextSlide.Name NextSlideShapeLink = NextSlide.Shapes(1).LinkFormat.SourceFullName '''''''''''''''''''

Эх, рано я радовался. Такой облом. Во время выполнения ничего не меняется! Только во время выполнения при запущенном редакторе. Похоже, что макросы не выполняются при простом показе. Как это обойти? Ставить два монитора? Тогда кайфу от задумки остается 10%. Даже и того меньше

Цитата

Похоже, что макросы не выполняются при простом показе

если выполнены все три пункта, предложеные во 2 посте, то все должно работать. Кстати, как именно реализован третий пункт (каким событием запускаем PressME) ??

Как ты и написал: связываем стартовую процедуру(2) с каким-либо элементом 1-го слайда: из контекстного меню: настройка действия -запуск макроса.
Связал с объектом вордарт-а на первом слайде .
Код где обновляются данные зашит вот в это:

Цитата

Если презентация идет непрерывным циклом, то меняем все здесь Код  Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)   ''''''''''''''''''''''''' End Sub

В этом коде я соединяюсь с MSSQLServer2000 и вытягиваю данные из однной таблички.

вероятно, ты меня недопонял

Цитата

Связал с объектом вордарт-а на первом слайде

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

Код

Sub PressME()     Set pp.App = Application ActivePresentation.SlideShowSettings.AdvanceMode = ppSlideShowUseSlideTimings ''''''''''''''''''''''''''''''''''''''''''''''''     End Sub

Это сообщение отредактировал(а) likhobory - 24.8.2005, 16:54

Фу ты, елки! Ну конечно! Все работает нормально. Спасибо выручил. Я ведь в VBA подОфис не в зуб ногой. Простопришлось чем-то плазму заполнять, вот я и подумал, поинт +динамика=то что нужно. И с эффектами и оперативная инфа постоянно. Теперь буду вылизывать презентацию. Хочу в итоге получить полностью автоматизированную (добавление новых слайдов и т.д. и т.п.)