Как изменить размер всех / нескольких изображений в Word?
Когда мы копируем или импортируем изображения из Интернета или других файлов, размер изображений может быть различным. Все знают, как изменять размер изображений одно за другим, но если мы хотим изменить их размер до одного и того же размера сразу, как мы можем это сделать? Этот урок покажет вам несколько методов изменения размера изображений.
Изменение размера изображений вручную в Word
Изменение размера изображений с помощью VBA
Измените размер нескольких изображений одновременно с помощью Kutools for Word
Изменение размера изображений вручную в Word
1. Чтобы показать ручки изменения размера изображения, щелкнув по изображению;
2. Поместите курсор на один из маркеров размера изображения.
3. Перетаскивайте маркер изменения размера, пока размер изображения не станет подходящим для ваших нужд. Смотрите скриншот:
Внимание: С помощью этого метода вы не можете изменить размер сразу нескольких изображений. Вам нужно изменять их размер один за другим, пока не будут изменены все изображения.
Изменение размера изображений с помощью VBA
С помощью следующего кода VBA вы можете изменить размер изображений до идеального. Вы можете сделать это следующим образом :
В этом примере мы изменяем размер изображения до 1.78 дюйма в высоту и 3.17 дюйма в ширину.
1. Выберите картинку, размер которой хотите изменить;
2, нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно;
3. Нажмите Модули от Вставить вкладку, скопируйте и вставьте следующий код VBA в Модули окно;
Код 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
4. Нажмите Run или F5 ключ для запуска кода VBA, и размер выбранного изображения был изменен до необходимого вам размера.
Внимание: В приведенном выше коде В shp.Height = InchesToPoints (1.78) и shp.Width = InchesToPoints (3.17) высота и ширина изображения, вы можете изменить размер в соответствии с вашими потребностями.
С помощью этого кода VBA вы также не можете изменить размер всего или нескольких изображений одновременно. Вам нужно переходить между документом Word и Microsoft Visual Basic для приложений окно для выбора изображения и применения кода. Это слишком много времени.
Изменение размера изображений с помощью Kutools for Word
Доступно Kutools for Word 's Изменение размера изображений Утилита, вы можете избавиться от этих надоедливых и трудоемких операций и быстро изменить размер всех изображений в документе.
Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. |
1. Пожалуйста, примените эту утилиту, нажав Кутулс Плюс > Изменение размера. Смотрите скриншот:
2. Если вы хотите изменить размер всех изображений до определенного процента от их исходного размера, выберите один из шести процентов в раскрывающемся списке. Например, если вы хотите изменить размер всех изображений до 50% от их исходного размера, выберите 50%. После нажатия 25%, вы увидите, что все изображения были увеличены до 50%. Смотрите скриншот:
Если вы хотите настроить все изображения на одинаковый размер с выбранным, выберите изображение в качестве размера модели, а затем нажмите Кутулс Плюс > Изменение размера > Изменение размера изображений с выделением, и все изображения будут иметь одинаковый размер в зависимости от выбранного, см. снимок экрана:
Для получения более подробной информации о Kutools for WordАвтора Изменение размера изображений утилита, нажмите здесь.
Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!
Демо: изменение размера всех изображений сразу в Word
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...