是否可以在编辑 Microsoft Word 2007 时对所有图像应用特定尺寸。如果可以,该怎么做?谢谢
答案1
这是从这里截取的很棒的宏来源。我将其包含在此处,以防引用的链接过期。您基本上必须分配一个快捷方式并保存此宏,然后选择全部文档中的图像(通过转到样式并选择您指定的图像样式)。
Sub AllPictSize()
Dim PecentSize 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
在选定的图像上运行宏,并指定百分比最大的图像在所选图像中。默认值为 75%,这意味着所有图像将调整为最大图像的 75%。
笔记:要使此宏起作用,所有选定的项目都必须是图像,因为 Word 只能对图像对象执行调整大小操作。如果图像无法正确调整大小,请检查样式并使所有图像都符合其独特的样式。