如何调剂Word中所有/多个图象的大小？-英雄云拓展知识分享

当我们从Internet或其他文件复制或导入图象时，图象的大小可能会有所不同。 每一个人都知道如何一张一张地缩放图片，但是如果我们想一次将它们缩放到相同的尺寸，我们该怎幺办？ 本教程将向您展现几种调剂图象大小的方法。

在Word中手动调剂图象大小

使用VBA调剂图象大小

使用一次调剂多个图象的大小

在Word中手动调剂图象大小

1。 经过单击图片来显示图片的大小调剂手柄；

2。 将光标放在图片的大小调剂手柄之一上。

3。 拖动大小调剂手柄，直到图片尺寸合适您的需求。 看截图：

备注：使用这类方法，没法一次全部调剂多张照片的尺寸。 您需要一个一个地调剂它们的大小，直到所有图片都被调剂大小。

使用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文档和 Microsoft Visual Basic for Applications 窗口当选择图片并利用代码。 那太费时间了。

使用调剂图象大小

这款独特的敏感免洗唇膜採用 Moisture WrapTM 技术和 Berry Mix ComplexTM 成份， 's 调剂图象大小 实用程序，您可以摆脱那些烦人且耗时的操作，并快捷调剂文档中所有图象的大小。

1。 请经过单击利用此实用程序 实用工具 加 > 调剂大小。 看截图：

2。 如果要将所有图象调剂为原始尺寸的某个百分比，请从下拉列表当选择6个百分比之一。 举例来看，如果要将所有图片调剂为原始尺寸的50％，请选择 50％。 点击后 25％，您将看到所有图片的大小已调剂为50％。 看截图：

如果您想将所有图象调剂为相同的大小并选择一个，请选择一张照片作为模型尺寸，然后单击 实用工具 加 > 调剂大小 > 经过选择调剂图象大小，并且所有图片都会针对所选的图片大小调剂为相同大小，请参见屏幕截图：

有关更多详细信息 “ 调剂图象大小 实用程序，请点击 这里.

点击下载并立即免费试用！

演示：在Word中一次调剂所有图象的大小