Изменение текста в текстбоксе на слайде

[vishnyaks]

Подскажите, пожалуста, почему при запуске презентации, на слайде которой расположен текстбокс, текст в тексбоксе не меняется?

Вот такой код:

Код: Выделить всё

Public WithEvents App As Application


Privat Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
    Slide1.TextBox1.Value = "123"
End Sub


[Димитрий]

см. http://www.vbnet.ru/forum/show.aspx?id=119276

[Димитрий]

Добавлю.
Если Sub Auto_open() разместить в надстройке, то процедура выполниться при загрузке надстройки. В простом модуле презентации - нет.

[vishnyaks]

Спасибо, но немного не по теме, вроде бы. Мне нужно, чтобы при начале показа слайдов менялся текст в тексбоксе на слайде1. Без всяких ручных пассов. Так можно сделать?

[vishnyaks]

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

[vishnyaks]

А нельзя ли по шагам, как сделать надстройку, которая будет содержать Private Sub App_SlideShowBegin? Может и правда так можно решить проблему?

[vishnyaks]

Попробовал сохранить макрос в виде надстройки, вылезает ошибка, что невозможно сохранить презентацию в виде надстройки, поскольку презентация содержит элементы управления активХ. Можно ли это обойти?

[vishnyaks]

В общем удалось сохранить код в виде надстройки из другой презентации, без элементов управления:

Код: Выделить всё

Dim X As New Class1
Sub InitializeApp()
     Set X.App = Application
End Sub

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

[Димитрий]

в модуле надстройки:

Код: Выделить всё

Dim X As New Class1
Sub Auto_open()
     Set X.App = Application
End Sub


в класс модуле надстройки Class1:

Код: Выделить всё

Public WithEvents App As Application
Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
    Application.Run "InitApp"
End Sub


в модуле презентации соответственно макрос:

Код: Выделить всё

Sub InitApp()
     Slide1.TextBox1.Text = "7878787"
End Sub


Ещё нужен код для проверки того что запущен просмотр именно Вашей презентации.

[vishnyaks]

Спасибо, сделал, как ты сказал, но выдаёт ошибку. Если есть время посмотреть - выслал файл в личку.

[Димитрий]

Код:
Sub InitApp()
Slide1.TextBox1.Text = DateDiff("d", "16.06.2011", Date)
End Sub
перенесите в Вашу презентацию (т.е. другой файл)
Файл "Дней без н.с..ppt" сохраните как надстройку *.ppa
И подключите надстройку Сервис-Надстройки...-Добавить
Откройте Вашу презентацию (т.е. другой файл)

Теперь, если не отключить надстройку, она будет при начале просмотра любой презентации пытаться запустить макрос "InitApp"

[vishnyaks]

Большое спасибо, всё получилось!