Перейти к содержимому

Как изменить размер всех или нескольких изображений в Word?

Author: Sun Last Modified: 2025-06-05

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

Изменение размера изображений вручную в Word

Изменение размера нескольких изображений одновременно с помощью Kutools для Word

Изменение размера изображений до определенных размеров с помощью VBA


Изменение размера изображений вручную в Word

  1. Выберите изображение, чтобы отобразить маркеры изменения размера.
  2. Перетаскивайте любой из маркеров изменения размера, пока изображение не достигнет желаемых размеров.

    Illustration: Drag the sizing handle

Примечание: Этот метод не позволяет изменять размер нескольких изображений одновременно. Вам нужно будет изменять размер каждого изображения по отдельности.


Массовое изменение размера всех изображений с помощью Kutools для Word

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

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.
  • Чтобы изменить размер всех изображений до определенного процента от их исходного размера:
    • Нажмите Kutools Plus > Изменить размер и выберите один из шести процентов из выпадающего списка. Например, выберите 50%, чтобы изменить размер всех изображений до половины их исходного размера.

      Illustration: Resize all pictures to 50% of their original size

  • Чтобы настроить все изображения так, чтобы они соответствовали размеру выбранного изображения:
    1. Выберите изображение, которое будет служить моделью размера.
    2. Нажмите Kutools Plus > Изменить размер > Изменить размер всех изображений на основе выделения. Все изображения будут изменены до того же размера, что и выбранное изображение.

      Illustration: Resize all pictures to the size of the selected picture

  • Если вам нужны более конкретные параметры, нажмите Kutools Plus > Изменить размер > Настроить для доступа к расширенным настройкам изменения размера.

    Illustration: Resize all pictures with advanced resizing settings

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

Kutools для Word — это идеальный надстройка для Word, которая упрощает вашу работу и повышает навыки обработки документов. Получите сейчас!

Изменение размера изображения до определенных размеров с помощью VBA

С помощью следующего кода VBA вы можете изменить размер изображения до желаемого размера. В приведенном ниже примере показано, как изменить размер изображения до высоты 1,78 дюйма и ширины 3,17 дюйма.

  1. Пожалуйста, выберите изображение, размер которого вы хотите изменить.
  2. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
  3. Нажмите Модуль из Вставить вкладку и скопируйте и вставьте следующий код VBA в Модуль окно.
    Sub ResizePics()
    Dim shp As Word.Shape
    Dim ishp As Word.InlineShape
    If Word.Selection.Type <> wdSelectionInlineShape And _
    Word.Selection.Type <> wdSelectionShape Then
        Exit Sub
    End If
    If Word.Selection.Type = wdSelectionInlineShape Then
        Set ishp = Word.Selection.Range.InlineShapes(1)
        ishp.LockAspectRatio = False
        ishp.Height = InchesToPoints(1.78)
        ishp.Width = InchesToPoints(3.17)
    Else
        If Word.Selection.Type = wdSelectionShape Then
            Set shp = Word.Selection.ShapeRange(1)
            shp.LockAspectRatio = False
            shp.Height = InchesToPoints(1.78)
            shp.Width = InchesToPoints(3.17)
        End If
    End If
    End Sub

    Примечание: В приведенном выше коде ishp.Height = InchesToPoints(1.78) и shp.Width = InchesToPoints(3.17) определяют высоту и ширину изображения в дюймах. Вы можете изменить эти значения в соответствии с вашими потребностями.

  4. Нажмите кнопку Запуск или клавишу F5, чтобы запустить код VBA. Выбранное изображение будет изменено до указанных размеров.

Хотя этот код VBA полезен, он не может изменить размер всех или нескольких изображений одновременно. Вам нужно будет переходить туда-сюда между документом Word и окном Microsoft Visual Basic для приложений, чтобы выбрать и изменить размер каждого изображения, что может занять много времени. В таких случаях используйте метод Kutools.


Демонстрация: Как изменить размер изображений в Word

Узнайте о вкладке Kutools / Kutools Plus в этом видео от Kutools для Word. Наслаждайтесь 100+ функциями и постоянно бесплатными AI-утилитами. Скачайте прямо сейчас!


Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите опробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀