Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.59/27: Рейтинг темы: голосов - 27, средняя оценка - 4.59
0 / 0 / 0
Регистрация: 10.06.2011
Сообщений: 4
1

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

16.08.2011, 06:34. Показов 5020. Ответов 3
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.08.2011, 06:34
Ответы с готовыми решениями:

Вставка номера слайда в Powerpoint
Добрый день, коллеги. Подскажите пожалуйста по реализации следующей задачи. Работаю в Powerpoint...

Сохранение слайда Powerpoint через VBA
Как сохранить слайд PowerPoint через VBA?

Powerpoint, определение активного слайда, с которого запускается макрос
Здравствуйте, помогите На слайдах встречаются кнопки, на которые навешаны макросы Так вот...

Автозапуск макроса со слайдом PowerPoint
Нужно сделать так, чтобы при запуске следующего слайда VBA начал выполнять код . Есть какие-нибудь...

3
Заблокирован
16.08.2011, 09:29 2
YOKODZUMA,
полной автоматизации достичь не получится, т.к. после закрытия презентации и последующем её открытии нужно вручную запускать код.

Инструкция:
  1. перейдите в VBA;
  2. создайте модуль класса (Insert - Class Module);
  3. назовите этот модуль класса вот так: EventsClass;
  4. поместите в этот модуль класса вот этот код:
    Visual Basic
    1
    2
    3
    4
    5
    6
    7
    
    Option Explicit
     
    Public WithEvents Программа As PowerPoint.Application
     
    Private Sub Программа_SlideShowBegin(ByVal Wn As SlideShowWindow)
    MsgBox "begin"
    End Sub
  5. создайте модуль (Insert - Module);
  6. поместите в него вот этот код:
    Visual Basic
    1
    2
    3
    4
    5
    6
    7
    
    Option Explicit
     
    Dim Переменная As New EventsClass
     
    Sub Процедура1()
    Set Переменная.Программа = PowerPoint.Application
    End Sub
  7. поставьте курсор мыши в любое место этого кода между Sub и End Sub и нажмите зелёную стрелку на панели инструментов;
  8. событие готово к работе.
0
0 / 0 / 0
Регистрация: 10.06.2011
Сообщений: 4
17.08.2011, 03:47  [ТС] 3
Невесело... Ладно придумаю что нибудь
А как макросом таблицу из Excel в поверпойнт скопировать?
0
Заблокирован
17.08.2011, 07:24 4
Цитата Сообщение от YOKODZUMA Посмотреть сообщение
Ладно придумаю что нибудь
напишите, пожалуйста, что придумаете.

Код надо запускать из Excel.
Книга Excel и лист, с которого копируем таблицу, должны быть активными.

1. Вариант. Презентация, в которую надо скопировать таблицу, закрыта.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Процедура1()
'Для удобства написания кода (чтобы появлялись
'всплывающие подсказки после того, как ставим точку)
'подключим библиотеку объектов программы PowerPoint:
'Tools - References... - Microsoft PowerPoint Object Library.
'Обращаться к PowerPoint будем через переменные.
Dim Программа As New PowerPoint.Application
Dim Презентация As PowerPoint.Presentation
'Обращаться к листу Excel, из которого берём таблицу,
'будем через переменную Лист (так кода меньше писать и удобнее).
Dim Лист As Excel.Worksheet
'Делаем программу PowerPoint видимой на мониторе
'(иначе ошибка какая-то выскакивает).
Программа.Visible = msoTrue
'Открываем презентацию и связываем её с переменной Презентация.
'Здесь надо указать путь и имя презентации.
Set Презентация = _
    Программа.Presentations.Open(Filename:="C:\Documents and Settings\Пользователь\Рабочий стол\Презентация1.ppt")
Set Лист = ActiveWorkbook.ActiveSheet
'Копируем таблицу из Excel из активной книги из активного листа.
Лист.Range(Лист.Cells(1, 1), Лист.Cells(5, 5)).Copy
'Вставка таблицы на первый слайд презентации.
Презентация.Slides(1).Shapes.Paste
'Сохранение и закрытие презентации.
Презентация.Save
Презентация.Close
End Sub


2. Вариант. Презентация, в которую надо скопировать таблицу, открыта.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.08.2011, 07:24

Powerpoint 2013 автоматическая смена слайда
Не могу добиться автоматической смена слайда. Вот такие настройки, галочку "по щелчку" что ставлю,...

Проблемы с сохранением слайда в powerpoint 2007
День добрый! Такой вопрос, при сохранение презентации стало появляться сообщение "Для отмены...

Считать весь всевозможный текст с одного слайда PowerPoint
List<string> strPres = new List<string>(); PPoint.Application ppt; PPoint.Presentations...

Применение дизайна слайда ко всем слайдам в презентации PowerPoint
Имею презентацию, вставляю в нее слайд с другим дизайном из другой презентации. Можно как-нибудь...

Как спрятать дополнительный текст слайда (PowerPoint 2007)?
как спрятать дополнительный текст слайда, т.е. оставить только один заголовок слайда????

Работа слайда от кнопки
У меня полураскрытый слайд, при нажатии на него он разворачивается, при повторном - сворачивается,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.