Как запустить 'помощника' при просмотре слайда в режиме демонстрации?

03.12.2008, 22:08. **Показов** 1281. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Не могу решить проблему: необходимо запустить 'помощника' при просмотре слайда в режиме демонстрации. Да еще чтобы при выборе одного из 'меню' label.text запускался другой помощник (вместо первого). Написанный мной код:

Visual Basic

Sub test()
 
Set balloon1 = Assistant.NewBalloon
With balloon1
    .Heading = 'Выбор'
    .Labels(1).Text = 'Вариант 1'
    .Labels(2).Text = 'Вариант 2'
End With
    
Select Case balloon1.Show
    
    Case 1
    Set balloon2 = Assistant.NewBalloon
    With balloon2
    .Heading = 'Выбран вариант 1'
    .Show
    End With
    
    
    Case 2
    Set balloon3 = Assistant.NewBalloon
    With balloon3
    .Heading = 'Выбран вариант 2'
    .Show
    End With
    
    
End Select
 
End Sub

В разных приложениях он работает, кроме PowerPoint демонстрации на весь экран. Т.е. работает и там, но второй помощник прячется под слайд, и 'визуализировать' его приходится через Alt-Tab, а это крайне неудобно.
Прошу совета.

@sergat · 04.12.2008, 06:37

Работа с Ассистентом (правда на английском) описана на сайте:
http://www.microsoft.com/officedev/articles/Opg/009/009.htm
или на русском если найдешь 'Руководство программиста по Visual Basic для Microsoft Office97'

@sergat 0 / 0 / 0 Регистрация: 03.12.2008 Сообщений: 53
	04.12.2008, 06:37	2
	Работа с Ассистентом (правда на английском) описана на сайте: http://www.microsoft.com/officedev/articles/Opg/009/009.htm или на русском если найдешь 'Руководство программиста по Visual Basic для Microsoft Office97' 0

Опции темы