Это в основном код pwrpntuser , расширенный до полного исполняемого руководства.
Создание макроса
В PowerPoint 2007 и новее убедитесь, что вы сохранили свою презентацию под расширением .pptm
(стандартная презентация с макросами разрешена).
Убедитесь, что вы добавили номера слайдов, используя метод, описанный в этой статье 1.
Откройте окно « Макро » 2. В PowerPoint 2007 и более поздних версиях нажмите вкладку « View
» (последняя), а затем кнопку « Macro
в последней группе панели инструментов. В более ранних версиях выберите Tools > Macro
из меню.
Введите имя для вашего макроса (скажем, PageCountUpdater
) и нажмите « Create
.
Вставьте код макроса (из ответа pwrpntuser или ниже) между Sub PageCountUpdater()
и End Sub
. Изменение van
в наиболее отступом линии of
или что - нибудь подобное в вашем языке.
Сохраните макрос и закройте Microsoft Visual Basic для приложений.Вернитесь в PowerPoint.
Вы сделали Код для вставки (полный и с исправленным «клеевым словом»):
Sub PageCountUpdater()
Dim s As Slide
Dim shp As Shape
For Each s In ActivePresentation.Slides
s.DisplayMasterShapes = True
s.HeadersFooters.SlideNumber.Visible = msoTrue
For Each shp In s.Shapes
If Left(shp.Name, 12) = "Slide Number" Then
shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
End If
Next
Next
End Sub
Выполнение макроса
Снова откройте окно « Макро ».
Выберите сохраненный макрос PageCountUpdater
и нажмите « Run
.
Вы должны делать это каждый раз вручную. Сочетание клавиш будет приветствоваться. Но ... нет способа изменить ярлыки PowerPoint, кроме как купить коммерческий плагин, за который вы должны заплатить цену, начиная с 20 долларов за один компьютер. Смотрите конец этой или этой статьи для деталей.
Удаление макроса
Этот макрос запускается только тогда, когда вам это нужно. Это не живой макрос. Это обновляет поле с фактическим количеством слайдов и все. Само поле является стандартным текстовым полем. Нет магии. Это означает, что вы можете легко преобразовать свой файл обратно в .pptx
и выбросить этот макрос, если вы уверены, что ваша презентация завершена, и вы больше не будете добавлять к ней слайды. Поле останется на своих местах с неизменными значениями после удаления макроса.
Это удобно, поскольку многим пользователям не нравятся документы с макросами, а многие места для презентаций, ярмарки, конференции и т.д. Просто не позволяют запускать файл .pptm
.
Это также хорошо, потому что этот макрос воссоздает поля нумерации на всех слайдах (кроме титровальных - см. Сноску № 1 в конце), даже если вы удалите их вручную. Поэтому вы должны запустить его в последний раз, после того, как будете уверены в окончательном количестве и порядке слайдов, а затем сможете удалить его.
Открытие файла с поддержкой макросов
Если вы решите сохранить расширение .pptm
и макрос внутри, у вас всегда будет открыт этот документ с отключенными макросами, и вам придется каждый раз нажимать Enable macros
(если вы используете настройки по умолчанию), чтобы включить их.
Если документы являются вашими собственными, вы уверены, что они не содержат вредоносного кода и все они хранятся в безопасном месте (то есть не в какой-то временной или общей папке), вы можете изменить параметры каждой программы Office, чтобы эти файлы всегда открывались с помощью макросы включены.
Самый простой способ - добавить папку с презентациями с поддержкой макросов в безопасные места в PowerPoint.
Сделать это:
Нажмите вкладку « File
», кнопку « Options
, раздел « Trust Center
» и кнопку « Trust Center Settings
управления безопасностью».
Перейдите в раздел « Trusted locations
» (второй) и нажмите кнопку « Add new location...
.
Вставьте или выберите путь к папке в поле « Path
и при необходимости проверьте, что все вложенные папки в добавленном местоположении также должны рассматриваться как надежные.
Нажмите OK
три раза, чтобы подтвердить и закрыть все открытые окна. Снова откройте документ с поддержкой макросов.
С этого момента все документы, открытые из только что добавленного местоположения, не должны отображать никаких предупреждений и всегда должны открываться с включенными макросами. Более подробную информацию по этому вопросу вы найдете в этом документе поддержки Office.com.
Сноски
1 В большинстве версий PowerPoint значение титульного слайда определяется не как первый слайд презентации, а как любой слайд в стиле титульного слайда.Вы можете видеть различные типы слайдов, когда вставляете новый. Это означает, что если у вас нет слайда в стиле заголовка, ко всем слайдам будут добавлены номера страниц. И наоборот - если вы использовали много титульных слайдов внутри презентации, например, чтобы пометить различные разделы или блоки, у вас будет отсутствовать нумерация на всех из них.
2 Названия всех элементов графического интерфейса переводятся на лету из моего польского издания PowerPoint 2010.В других выпусках или языковых выпусках PowerPoint они могут немного отличаться. Отрегулируйте соответственно.