您可能需要按常规比例缩放文档中的图形。使用功能区工具进行缩放可能会很麻烦，因此您可能想使用可以分配给“ link：/ wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [快速访问工具栏]”按钮或快捷键的宏进行缩放。以下宏将很好地进行缩放：

Sub PictSize()

Dim PercentSize As Integer

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



If Selection.InlineShapes.Count > 0 Then         Selection.InlineShapes(1).ScaleHeight = PercentSize         Selection.InlineShapes(1).ScaleWidth = PercentSize     Else         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue     End If End Sub

宏首先询问您要缩放所选图像的百分比，默认为75（75％）。指定百分比后，宏将检查以查看所选图形是嵌入式图形还是浮动图形。这样做的原因是，每种情况下对象的指定以及缩放的指定方式均不同。内联对象属于InlineShapes集合，而浮动对象是使用ShapeRange对象设置的。

如果要按相同的百分比调整文档中所有图形的大小，则只需修改上面的宏，以使它逐步遍历每个内嵌图形，然后遍历每个浮动图形。

Sub AllPictSize()

Dim PercentSize As Integer     Dim oIshp As InlineShape     Dim oshp As Shape

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



For Each oIshp In ActiveDocument.InlineShapes         With oIshp             .ScaleHeight = PercentSize             .ScaleWidth = PercentSize         End With     Next oIshp

For Each oshp In ActiveDocument.Shapes         With oshp             .ScaleHeight Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue             .ScaleWidth Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue         End With     Next oshp End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（7069）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

在宏中缩放图形。