如何在 Microsoft Word 2007 中对图片应用常规尺寸

如何在 Microsoft Word 2007 中对图片应用常规尺寸

是否可以在编辑 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 只能对图像对象执行调整大小操作。如果图像无法正确调整大小,请检查样式并使所有图像都符合其独特的样式。

相关内容