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

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

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

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

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

---

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

1. Выберите изображение, чтобы отобразить маркеры изменения размера.
2. Перетащите любой маркер изменения размера, пока изображение не примет нужные вам пропорции.

   

Примечание: этот метод не позволяет изменять размер нескольких изображений одновременно — каждое изображение придётся настраивать отдельно.

---

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

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

• Чтобы изменить размер всех изображений до определённого процента от их Оригинальный размер:
  • Щелкните KUTOOLS PLUS > Изменить размер и выберите одно из шести процентных значений в раскрывающемся списке. Например, выберите 50 %, чтобы уменьшить все изображения до половины их оригинального размера.
• Чтобы подогнать все изображения под размер выбранного изображения:
  1. Выберите изображение, которое станет эталоном по размеру.
  2. Щелкните KUTOOLS PLUS > Изменить размер > Изменить размер всех изображений на основе выделения. Все изображения будут изменены до размера выбранного изображения.
• Если вам нужны более точные параметры, щелкните KUTOOLS PLUS>Изменить размер>Настроить, чтобы получить доступ к расширенным настройкам изменения размера.

  

Чтобы узнать больше об утилите Kutools для 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

---