您可能需要按常规比例缩放文档中的图形。使用菜单进行缩放可能会很麻烦，因此您可能希望通过使用可以分配给工具栏按钮或快捷键的宏进行缩放。以下宏将很好地进行缩放：

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是世界上最流行的文字处理软件。）此技巧（7694）适用于Microsoft Word 97、2000、2002和2003。您可以找到用于Word（Word 2007）的功能区界面的该技巧的版本。和更高版本）在这里：

在宏中缩放图形。