Note: The other languages of the website are Google-translated. Back to English

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

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

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

Изменение размера изображений с помощью VBA

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


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

1. Чтобы показать ручки изменения размера изображения, щелкнув по изображению;

2. Поместите курсор на один из маркеров размера изображения.

3. Перетаскивайте маркер изменения размера, пока размер изображения не станет подходящим для ваших нужд. Смотрите скриншот:

док настроить изображения 1

Внимание: С помощью этого метода вы не можете изменить размер сразу нескольких изображений. Вам нужно изменять их размер один за другим, пока не будут изменены все изображения.


Изменение размера изображений с помощью 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%. Смотрите скриншот:

док настроить изображения 3

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

док настроить изображения 4

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

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


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

Kutools for Word: с более чем 100 удобными надстройками Word, которые можно попробовать бесплатно без ограничений в течение 60 дней. Загрузите и бесплатную пробную версию прямо сейчас!


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

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (6)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
сэкономьте деньги и запустите этот макрос: Отдайте должное Дэйву Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Конец сабвуфера
E
Этот комментарий был сведен к минимуму модератором на сайте
сэкономьте деньги и запустите этот макрос: Отдайте должное Дэйву Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End С конечной сабвуфером Превосходно!!! Вы сэкономили мои деньги и мое время. Большое спасибо!
розовый
Этот комментарий был сведен к минимуму модератором на сайте
Где я помещаю этот код?
Луиз
Этот комментарий был сведен к минимуму модератором на сайте
Кто-нибудь знает, доступна ли в Windows 365 функция заполнителя/пипетки/автоматического изменения размера изображения? Понятия не имею, где искать или найти помощь по этому вопросу, так как помощь в чате Microsoft была НАСТОЛЬКО бесполезна. Мы будем очень благодарны за любые советы.
Nik
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно изменить размер всех изображений в текстовом документе до одинаковой ширины, но не деформировать изображения. поэтому масштабируйте их до одинаковой ширины. Возможно ли это через макрос?
Майкл
Этот комментарий был сведен к минимуму модератором на сайте
Если вы сохраните документ в формате .docx, вы сможете открыть его как zip-архив. Там будет медиа-папка со всеми изображениями (у меня были изображения PNG). Затем вы можете использовать такие программы, как IrfanView, XnViewMP, FastStone Viewer, для выполнения пакетных преобразований, таких как изменение размера, уменьшение глубины цвета и т. д. Упакуйте изображения обратно в zip и переименуйте его в docx. Например, в моем docx, полном скриншотов, мне нужно было уменьшить количество цветов до 8, чего достаточно для целей документации. После обработки мой документ размером 10 МБ стал документом размером 1.8 МБ, поэтому экономия может быть значительной. Всегда сохраняйте исходный docx на случай, если вы захотите восстановить изображения после слишком большой деградации/обработки и т. д.
хвастовство
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места