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

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Sun Last modified

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

Изменение размера изображений вручную в 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 for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

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

Kutools for Word - 100+ инструментов для Word

Бесплатная загрузка Купить Подробнее о Kutools