Использование образцов

При создании презентации обычно используется шаблон презентации, который включает в себя образец слайда, образец заголовков, образец заметок докладчика, образец раздаточных материалов.

Если создавалась пустая презентация, то презентация не имеет образца заголовков слайдов.

Любой образец это профессионально выполненная заготовка слайдов или выдач.

Для работы с образцами выберите команду Вид-Образец. Далее выберите нужный образец

Образец слайдов

Вы используете образец слайдов и ваша презентация имеет определенный фон для всех слайдов, искусно подобранные объекты, размещенные на каждом слайде, определенным образом оформленные списки, цветовую гамму и т.д.

Вы можете изменить образец слайдов и тогда сделанные изменения автоматически отразятся на каждом слайде.

Образец слайдов пустой презентации имеет только образцы форматирования текстов пяти уровней.

Образец заголовков

Образец заголовков это образец титульного слайда.

Титульный слайд обычно первый слайд в презентации и представляет созданную вами разработку. Титульных слайдов в презентации может быть несколько. Подобно образцу слайдов, он управляет расположением объектов, форматированием текстов, фоном и цветовой гаммой объектов всех титульных слайдов презентации.

Изменение образца заголовков изменяет представление всех титульных слайдов презентации.

Команда Вид-Образец слайдов показывает две миниатюры: первая – образец слайдов, вторая – образец заголовков. Переход между образцами выполняется щелчком на нужный образец.

Чтобы добавить образец заголовков или образец слайдов, используйте панель инструментов Образец, которая открывается при выполнении команды Вид-Образец-Образец слайдов.

Образец слайдов

Образец слайдов устанавливается на все, создаваемые с помощью предлагаемых Power Point размеченных

• Выберите Образец слайда.

• Работайте с ним как с обычным слайдом.

• Можно изменить шрифты, настроить списки, изменить фон.

• Закройте образец.

• Все изменения вносятся во все слайды.

Если есть необходимость разместить некоторый логотип на всех слайдах презентации, то это делается через образец слайдов. Предварительно надо переместить объекты образца, чтобы освободить место для логотипа.

Макросы в презентациях

Макросы (процедуры) применяются для настройки действия, связанного с объектом. При записи процедур используются команды Visual Basic for Application и команды обработки графических объектов, которые можно записать при помощи Macrorecorder'а.

Инструментальное средство Macrorecorder отслеживает действия, пользователя, выполняемые при помощи команд меню или клавиатурных эквивалентов ("горячих" клавиш), генерирует и записывает соответствующие макрокоманды до тех пор, пока пользователь не остановит процесс записи. В результате создается процедура (макрос), которая дает тот же эффект, что и выполненные действия. Записанную процедуру можно отредактировать и связать с объектом презентации таким образом, чтобы процедура выполнялась при щелчке на объект.

Процедуры, созданные макрорекордером, не являются достаточно эффективными, т.к. макрорекордер записывает установку всех свойств объекта, даже если изменилось только одно из них, записывает команды, соответствующие активизации обрабатываемых объектов, и потому требуют корректировки с целью удаления лишних операторов (очистка макроса).

Р едактирование макроса производится в редакторе Visual Basic таким же образом, как редактируется текст в текстовом редакторе. Макросы записываются в модулях. Каждый макрос имеет имя, по которому его можно выбрать из списка макросов в окне редактора.

Разработка макросов для презентации производится аналогично тому, как это выполняется в Microsoft Excel (подробно см. )

Советы

• Не записывайте макрорекордером слишком большие макросы. Всегда можно объединить несколько макросов в одну процедуру или записать в макросе оператор вызова другого макроса.

• Добавляйте комментарии к командам макроса.

Пример 1

Процедура должна размещать выделенный объект по центру слайда.

Разместите любую автофигуру, например, звезду с четырьмя лучами, в левом углу слайда.

Включите запись макроса командой Сервис-Макрос-Начать запись.

В поле Имя макроса (Macro Name) введите имя будущей процедуры. По умолчанию имя состоит из слова "Макрос" и порядкового номера создаваемого макроса. Нажатие на OK включает запись.

Рис. . Запись нового макроса при помощи макрорекордера

На экране возникнет панель инструментов с кнопкой Остановить запись. Если этой панели на экране нет, то необходимо включить ее с помощью команды Сервис-Настройка, вкладка Панели инструментов. В списке возможных панелей инструментов пометьте Остановить запись.

Выделите центруемый объект и поочередно выполните команды Выровнять по центру и Выровнять посередине из меню Действия панели инструментов Рисование.

Остановите запись макроса нажатием на кнопку останова записи.

Созданная процедура записана в модуле Module1 с именем Макрос4.

Sub Макрос4 ()
ActiveWindow.Selection.SlideRange.Shapes("AutoShape 1").Select	выделяет автофигуру
ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True	центрует автофигуру по горизонтали
ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True	центрует фигуру по вертикали
End Sub

Удалите первую команду, чтобы процедура центровала любую выделенную автофигуру.

Разместите еще одну автофигуру на слайде и проверьте, как работает макрос.

Выполните команду Сервис-Макрос-Макросы, выберите Макрос4 и .нажмите командную кнопку Запуск. Активизируется выбранный макрос.

В диалоге можно набрать имя выполняемого макроса или выбрать его из списка имеющихся макросов. Этот диалог можно вызвать, нажав на кнопку Выполнить макрос (Run Macro) панели инструментов Visual Basic.

Рис. . Панель инструментов Visual Basic

Следующие слайды демонстрируют возможности настройки презентации с использованием макросов.

Пример 2

На слайде поочередно с интервалом в 0,3 секунды будут высвечиваться все доступные в PowerPoint автофигуры. Дополнительно автофигуры случайным образом смещаются вниз, поворачиваются и окрашиваются.

На слайде с разметкой Заголовок и текст (в рассматриваемом примере это слайд с номером 14) разместите любую автофигуру.

Рис. Слайд с автофигурами (слайд 10)

В редакторе Visual Basic создайте процедуру с именем obj, содержащую приведенные ниже команды:

Public Sub obj()
Set myslide = ActivePresentation.Slides(14)	Объект myslide представляет слайд с номером 14
For i = 1 To 137	Цикл на 137 объектов-автофигур
myslide.Shapes(3).IncrementTop (Rnd() + 1)	Перемещение автофигуры по вертикали
myslide.Shapes(3).IncrementRotation 1 + Rnd() * 10	Поворот автофигуры
myslide.Shapes(3).AutoShapeType = i	Изменение типа автофигуры
myslide.Shapes(3).Fill.ForeColor.RGB = RGB(255 * Abs(Sin(i)), 128 * Abs(Cos(i)), 170 * Abs(Sin(i)))	Изменение цвета автофигуры
myslide.Shapes(3).Fill.Solid	Сплошная заливка автофигуры
Delay 0.3	Задержка изображения слайда на 0,3 секунды
Next i	Переход к следующей автофигуре
End Sub
Public Sub Delay(rTime As Single)	Процедура задержки изображения на rTime (min=.01, max=300)
Dim OldTime As Variant
If rTime < 0.01 Or rTime > 300 Then rTime = 1
OldTime = Timer
Do
DoEvents	приостановка выполнения процедуры для того, чтобы процессор мог выполнить другие задачи из очереди
Loop Until Timer - OldTime >= rTime
End Sub

Выполните настройку действия для автофигуры: при щелчке на автофигуру должна выполняться процедура obj и изображения автофигур будут сменять друг друга, двигаться по вертикали, поворачиваться и закрашиваться. Используйте команду Настройка действия из контекстного меню для автофигуры – выберите опцию Запуск макроса и макрос obj.

Пример 3

На слайде с разметкой Пустой слайд размещены 11 объектов (в рассматриваемом примере это слайд с номером 10). Первый размещаемый объект (вверху слева) – изображение орла, последний размещаемый объект (вверху справа)– текст WordArt. Остальные объекты могут быть размещены в произвольном порядке. Порядок размещения первого и последнего объектов важен, так как приводимая ниже процедура должна запускаться при нажатии на изображение орла.

Рис. Слайд с перемещающимися рисунками (слайд 10)

При выполнении процедуры condor рисунки с изображением видов социальной помощи уменьшаются в размере, поворачиваются и перемещаются до тех пор, пока не исчезают со слайда. Изображение орла после этого увеличивается, перемещается в центр слайда и получает эффект вращения.

В редактор Visual Basic создайте процедуру с именем condor, содержащую приведенные ниже команды:

Public Sub condor()
Set myslide = ActivePresentation.Slides(10)	объект myslide представляет слайд с номером 10
For i = 2 To myslide.Shapes.Count – 1	цикл на 9 рисунков, (первый рисунок орел не обрабатывается в цикле)
With myslide.Shapes(i)	Для каждого рисунка уменьшается
.Width = .Width * 0.75	ширина
.Height = .Height * 0.75	высота
.IncrementLeft 50	рисунок смещается вправо
.IncrementTop -20	и вверх
.IncrementRotation 20	поворачивается
End With
Delay 0.3	после обработки каждого рисунка состояние экрана фиксируется на 0,3 секунды (процедура Delay)
Next I	переход к следующему рисунку
For j = 1 To 7	Цикл на семь раз. По окончании цикла рисунки практически выходят за пределы слайда
For i = 2 To myslide.Shapes.Count – 1	Цикл на количество рисунков.
With myslide.Shapes(i)	Перемещение и поворот рисунков
.IncrementLeft 50
.IncrementTop -20
.IncrementRotation 20
End With
Next i
Delay 0.3
Next j
For i = 2 To myslide.Shapes.Count – 1	Цикл на количество рисунков, исключая первый и последний
myslide.Shapes(i).Visible = msoFalse	отмена высвечивания рисунков
Next i
Delay 0.1
For i = 15 To 150 Step 15	Цикл смещает изображение орла, постепенно увеличивая его высоту и ширину.
Delay 0.1
With myslide.Shapes(1)
.Width = .Width * 1.02
.Height = .Height * 1.02
.Top = i - 5
.Left = i
End With
Next i
myslide.Shapes(1).AnimationSettings.EntryEffect = ppEffectSwivel	изображение орла получает эффект вращения
myslide.Shapes(1).AnimationSettings.AfterEffect = ppAfterEffectHide	по окончании вращения изображение орла исчезает
SlideShowWindows(1).View.GotoSlide 11	Переход к следующему слайду.
End Sub

Выполните настройку действия для изображения орла: при щелчке на рисунок должна выполняться процедура Condor и все изображения начнут двигаться. Используйте команду Настройка действия из контекстного меню для изображения орла – выберите опцию Запуск макроса и макрос Condor.