Автозапуск слайда в PowerPoint - VBA

Формулировка задачи:

Господа, подскажите как сделать макрос в PowerPoint, чтобы он запускался при показе слайда?

Решение задачи: «Автозапуск слайда в PowerPoint»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Процедура2()
'Программа PowerPoint должна быть запущена и презентация,
'в которую надо скопировать таблицу, должна быть открыта.
Dim Презентация As Object
Dim Лист As Excel.Worksheet
'Получаем доступ к открытой презентации и связываем её с переменной Презентация.
'Здесь указываем путь и имя презентации.
Set Презентация = GetObject(PathName:="C:\Documents and Settings\Пользователь\Рабочий стол\Презентация1.ppt")
Set Лист = ActiveWorkbook.ActiveSheet
'Копируем таблицу из Excel из активной книги из активного листа.
Лист.Range(Лист.Cells(1, 1), Лист.Cells(5, 5)).Copy
'Вставка таблицы на первый слайд презентации.
Презентация.Slides(1).Shapes.Paste
End Sub