Автозапуск слайда в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д