☰

使用 Microsoft Word 2007 中的宏调整所有大于给定尺寸的图片的大小？

tag-icon • tag-icon microsoft-word vba macros pictures resizing
使用 Microsoft Word 2007 中的宏调整所有大于给定尺寸的图片的大小？

我有一个 Word 文档，里面有大约 5000 张图片。有两种类型，一种高度较低，另一种高度较高。我只想将高度超过 1 厘米的图片调整为 2.3 厘米的宽度。我有宏可以调整所有图片的大小，但如果有办法添加我提到的条件，请告诉我。

这是我用来调整所有图像大小的宏。

Sub SizeAllImage()
Dim pic As Long
With ActiveDocument
For pic = 1 To .InlineShapes.Count
    With .InlineShapes(pic)
        .Width = CentimetersToPoints(2.3)
    End With
Next pic
End With
End Sub

答案1

创建此条件宏的一种可能方法是，使用 If 检查所选图像的高度。（感谢 Tanya 的帮助）。

Sub SizeAllImage()
Dim pic As Long
With ActiveDocument
For pic = 1 To .InlineShapes.Count
    With .InlineShapes(pic)
 If .Height >= CentimetersToPoints(1) Then
    .Width = CentimetersToPoints(2.3)
End If    
End With
Next pic
End With
End Sub

相关内容