提示:其它语言是由 Google 机器翻译的。 你可以访问 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和新Internet Explorer!

了解更多 免费下载

1。 点击图片显示图片的尺寸控制柄;

2。 将光标放在图片的一个尺寸手柄上。

3。 拖动大小调整手柄直到图片大小适合您的需要。 看截图:

doc调整图像1

注意:使用此方法,您无法一次调整多个图片的大小。 您需要逐个调整它们的大小,直到所有图片都调整大小。


使用VBA调整图像大小

使用以下VBA代码,您可以将图片调整为理想尺寸。 您可以按照以下步骤完成:

在本例中,我们将图片大小调整为1.78英寸高度和3.17英寸宽度。

1。 请选择您想要更改尺寸的图片;

2。 按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口;

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文档和Word文档之间来回切换 Microsoft Visual Basic for Applications 窗口选择图片并应用代码。 这太耗时了。


使用Kutools for Word调整图像大小

您订购的 Kutools for Word's 调整图像大小 实用程序,您可以摆脱那些烦人和耗时的操作,并快速调整文档中的所有图像的大小。

Kutools for Word : 有超过300便利的Word插件,可以在60天免费试用而没有限制.

1。 请点击应用此实用程序 企业服务 > 调整图像大小。 看截图:

doc调整图像2

2。 如果您想将所有图像的大小调整为其原始大小的一定比例,请从下拉列表中选择六个百分比中的一个。 例如,如果您想将所有图片的大小调整为原始大小的50%,请选择 夜晚是他们最嘴馋。 点击后 夜晚是他们最嘴馋,你会看到所有的图片都被设置为50%。 看截图:

doc调整图像3

如果您想要将所有图像调整为与选定尺寸相同的尺寸,请选择一张图片作为模型尺寸,然后单击 企业服务 > 调整图像大小 > 通过选择调整图像大小,所有图像将根据选择的尺寸调整大小,请参阅屏幕截图:

doc调整图像4

有关更多详细信息 Kutools for Word 调整图像大小 实用程序,请点击 请点击此处。.

点击下载Kutools for Word并免费试用!


演示:在Word中一次调整所有图像的大小

Kutools for Word:拥有超过100便利的Word插件,可以免费试用60时间不受限制。 立即下载并免费试用!




推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在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!