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

Копировать в память

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