Что нужно знать
- Перейдите к Просмотр > Макросы, введите имя макроса и выберите Создать, затем введите код макроса.
- Сохранить макрос как PowerPoint Macro-Enabled Presentation.
- Чтобы применить макрос, перейдите в Просмотр > Macros, выберите созданный вами макрос, а затем выберите Выполнить.
В этой статье объясняется, как создать макрос PowerPoint для изменения размера фотографий, чтобы все изображения были одинакового размера и располагались в одном и том же месте на слайде. Инструкции относятся к PowerPoint 2019, 2016, 2013 и PowerPoint для Microsoft 365.
Добавьте изображения в слайды PowerPoint
Если у вас есть большое количество изображений для включения в PowerPoint, ускорьте процесс изменения их размера, не повторяя утомительную задачу для каждого изображения, создав макрос, который сделает эту работу за вас.
Прежде чем начать, вставьте все изображения, которые вы хотите использовать в презентации PowerPoint.
- Откройте презентацию PowerPoint и выберите первый слайд, который будет содержать изображение.
- Перейти к Вставить.
- Выбрать Изображения > Изображение из файла.
- Выберите изображение на своем компьютере и нажмите Вставить.
-
Повторите этот процесс, чтобы добавить фотографии на другие слайды презентации.
Image -
Не беспокойтесь, что фотографии слишком велики или слишком малы для слайдов на данном этапе. Макрос позаботится об изменении размера изображений, чтобы они были одинакового размера.
Запись макроса для изменения размера изображений
После того, как все изображения будут вставлены в презентацию PowerPoint, создайте макрос, чтобы уменьшить все изображения до одинакового размера и положения на слайде. Прежде чем создавать макрос для автоматизации задачи, вы можете попрактиковаться в выполнении шагов на одном изображении, чтобы убедиться, что вы получите точные результаты, которые хотите.
-
Перейдите к Просмотр и выберите Макросы.
Image -
В диалоговом окне «Макрос» введите Имя макроса.
Имя может содержать буквы и цифры, но должно начинаться с буквы и не может содержать пробелов. Используйте подчеркивание для обозначения пробела в имени макроса.
Image -
В списке Макрос в отображается название презентации, над которой вы работаете.
Макрос можно применить к нескольким презентациям. Откройте другие презентации и выберите Все открытые презентации.
-
Выберите Создать, чтобы открыть Microsoft Visual Basic для приложений.
Image -
Введите следующую информацию, но замените числа после знака равенства на желаемый размер изображения и его расположение. Введите числа в пунктах. Например:
sub ResizePhotos ()
With ActiveWindow. Selection. ShapeRange
. Height=418,3
. Width=619,9
. Left=45. Top=45
End With
End Sub
Image - Выберите Сохранить, чтобы открыть диалоговое окно Сохранить как.
-
В списке Сохранить как тип выберите Презентация PowerPoint с поддержкой макросов.
Image - Выберите Сохранить.
- Закрыть Visual Basic для приложений.
Примените макрос для изменения размера изображений в презентации
- Выберите изображение, размер которого хотите изменить.
- Перейдите к Просмотр и выберите Макросы.
-
Выберите только что созданный макрос и нажмите Выполнить.
Image - Ваше изображение изменено и перемещено. Продолжайте применять макрос к другим изображениям в презентации.
