Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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


Измените размер всех фотографий одного размера на основе выбранного:

Чтобы изменить размер всех изображений на один размер, вы должны изменить их размер один за другим, но с Kutools for Word's Изменение размера изображений вы можете настроить все изображения с одинаковым размером по выбранному. С другой стороны, вы также можете изменить их размер до определенного процента по мере необходимости.

doc настроить изображения 05

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


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

Популярные
Удивительно! Используйте эффективные вкладки в Word (Office), такие как Chrome, Firefox и New Internet Explorer!

Узнать больше Скачать бесплатно

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

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

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

doc настроить изображения 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. щелчок прогон или F5 ключ для запуска кода VBA, а выбранное изображение было изменено до нужного размера.

Внимание: В приведенном выше коде, В shp.Height = InchesToPoints (1.78) shp.Width = InchesToPoints (3.17) это высота и ширина изображения, вы можете изменить размер, чтобы удовлетворить ваши потребности.

С помощью этого кода VBA вы также не можете изменять размер всего или нескольких изображений одновременно. Вам нужно идти туда и обратно между документом Word и Microsoft Visual Basic для приложений чтобы выбрать изображение и применить код. Это слишком трудоемко.


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

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

Kutools for Word : с более чем 300 удобными надстройками Word, бесплатно попробовать без ограничений в 60-дни.

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

doc настроить изображения 2

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

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

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

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

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

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


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

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




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

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    bravomail · 3 years ago
    If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx.

    For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
  • To post as a guest, your comment is unpublished.
    Michael · 3 years ago
    I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
  • To post as a guest, your comment is unpublished.
    Nik · 3 years ago
    Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
  • To post as a guest, your comment is unpublished.
    E · 4 years ago
    save your money and run this macro: Credit to Dave

    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
    End Sub
    • To post as a guest, your comment is unpublished.
      Rosa · 2 years ago
      [i]save your money and run this macro: Credit to Dave

      Sub resizeimages()
      Dim i As Long
      With ActiveDocument
      For i = 1 To .InlineShapes.C ount
      With .InlineShapes(i )
      .ScaleHeight = 60
      .ScaleWidth = 60
      End With
      Next i
      End With
      End Sub
      [/i]
      Excellent!!! You saved my money and my time. Thank you very much!