Как изменить размер всех / нескольких изображений в 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 Изменение размера изображений Утилита, вы можете избавиться от этих надоедливых и трудоемких операций и быстро изменить размер всех изображений в документе.

1. Пожалуйста, примените эту утилиту, нажав Кутулс Плюс > Изменение размера. Смотрите скриншот:

2. Если вы хотите изменить размер всех изображений до определенного процента от их исходного размера, выберите один из шести процентов в раскрывающемся списке. Например, если вы хотите изменить размер всех изображений до 50% от их исходного размера, выберите 50%. После нажатия 25%, вы увидите, что все изображения были увеличены до 50%. Смотрите скриншот:

Если вы хотите настроить все изображения на одинаковый размер с выбранным, выберите изображение в качестве размера модели, а затем нажмите Кутулс Плюс > Изменение размера > Изменение размера изображений с выделением, и все изображения будут иметь одинаковый размер в зависимости от выбранного, см. снимок экрана:

Для получения более подробной информации о Kutools for WordАвтора Изменение размера изображений утилита, нажмите здесь.

Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!

Демо: изменение размера всех изображений сразу в Word

Рекомендуемые инструменты для повышения производительности Word