Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
323 / 49 / 28
Регистрация: 07.09.2014
Сообщений: 217
1

Вставка номера слайда в Powerpoint

28.09.2015, 11:21. Показов 2293. Ответов 1
Метки нет (Все метки)

Добрый день, коллеги.

Подскажите пожалуйста по реализации следующей задачи. Работаю в Powerpoint 2007. При редактировании слайда руками делаю такую вещь - вставляю текстовое поле на слайд, пишу в нем "Слайд №", потом во вкладке ленты "Вставка" нажимаю на кнопку "Номер слайда" и затем в текстовое поле дописываю еще кое-какие данные. В итоге получается текстовое поле с динамическим номером слайда и статическим остальным текстом. Каким образом это реализуется средствами VBA Powerpoint? А то записи макроса в нем нет, и поэтому даже не понимаю куда копать.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2015, 11:21
Ответы с готовыми решениями:

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

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

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

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

1
6070 / 1315 / 195
Регистрация: 12.12.2012
Сообщений: 1,024
28.09.2015, 14:29 2
Лучший ответ Сообщение было отмечено mihey1993 как решение

Решение

Здравствуйте, mihey1993,
С помощью VBA Powerpoint это можно реализовать следующим образом:

Visual Basic
1
2
3
4
5
6
7
8
'Добавление текстового поля с номером слайда на видимый в данный момент времени слайд.
Sub AddSlideNumberTextbox()
    With Application.ActiveWindow.View.Slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 200, 200, 20).TextFrame.TextRange
        .Text = "Слайд №"
        .InsertSlideNumber
        .InsertAfter ": слайд с автоматически обновляемым номером слайда в текстовом поле."
    End With
End Sub
Записи макросов в Powerpoint действительно не оказалось, но имеются справка (F1) и браузер объектов (F2), которые очень помогли мне в написании данного кода.

С уважением,
Аксима
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2015, 14:29

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

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

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

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


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

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

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