您可能需要按常规比例缩放文档中的图形。使用功能区工具进行缩放可能会很麻烦,因此您可能想使用可以分配给“ 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的旧菜单界面在这里: