Как создать макрос PowerPoint для изменения размера фотографий

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

Инструкции в этой статье относятся к PowerPoint 2019, 2016, 2013; и PowerPoint для Office 365.

Добавьте изображения в слайды PowerPoint

Прежде чем начать, вставьте все изображения, которые вы хотите использовать в презентации PowerPoint.


  1. Откройте презентацию PowerPoint и выберите первый слайд, который будет содержать изображение.


  2. Перейти к Вставить. 


  3. Выбрать Фотографий > Изображение из файла.


  4. Выберите изображение на вашем компьютере и выберите Вставить.


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

    Скриншот, показывающий презентацию с фотографиями на нескольких слайдах


  6. Не беспокойтесь, что фотографии слишком велики или слишком малы для слайдов. Макрос позаботится об изменении размеров изображений, чтобы они были одинакового размера.


Запишите макрос для изменения размера изображений

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


  1. Перейти к Посмотреть и выберите макрос.

    Снимок экрана, показывающий, как создать новый макрос в презентации PowerPoint


  2. В диалоговом окне Макрос введите Имя макроса.

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

    Снимок экрана, показывающий, как назвать макрос в PowerPoint


  3. Макрос в В списке отображается название презентации, над которой вы работаете.

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


  4. Выбрать Создайте открыть Microsoft Visual Basic для приложений.

    Снимок экрана Visual Basic для приложений в PowerPoint


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

    С ActiveWindow.Selection.ShapeRange
    .Высота = 418,3
    .Ширина = 619,9
    .Слева = 45
    .Top = 45
    Конец с

    Снимок экрана, показывающий пример кода VBA для изменения размера изображения в PowerPoint


  6. Выбрать Сохранить открыть Сохранить как чат.


  7. в Сохранить как тип список, выберите Презентация с поддержкой макросов PowerPoint.

    Снимок экрана, показывающий, как включить макросы в презентации PowerPoint


  8. Выбрать Сохранить.


  9. Закройте Visual Basic для приложений.


Применение макроса для изменения размера изображений в презентации


  1. Выберите изображение, которое хотите изменить.


  2. Перейти к Посмотреть и выберите макрос.


  3. Выберите макрос, который вы только что сделали, и выберите Бегать.

    Снимок экрана, показывающий, как запустить макрос в PowerPoint


  4. Ваше изображение изменяется и перемещается. Продолжайте применять макрос к другим изображениям в презентации.


Ссылка на основную публикацию