vba - Word 中的 Visual Basic 宏以调整大小/居中/删除所有图像

Question

我在网上找到了一个 VBA 宏，它可以调整 Word 文档中所有图像的大小:

Sub ResizeAllImages()
''# make all images (both inline and floating)
''# 11 cm wide while preserving aspect ratio

Dim oShp As Shape
Dim oILShp As InlineShape

For Each oShp In ActiveDocument.Shapes
    With oShp
        .Height = AspectHt(.Width, .Height, _
        CentimetersToPoints(11))
        .Width = CentimetersToPoints(11)
    End With
Next

For Each oILShp In ActiveDocument.InlineShapes
    With oILShp
        .Height = AspectHt(.Width, .Height, _
        CentimetersToPoints(11))
        .Width = CentimetersToPoints(11)
    End With
Next
End Sub

我找不到可用于居中对齐所有图像的方法的名称。
有谁知道我需要添加什么，以及我必须在哪里添加它？

最后，我想删除我觉得太小的图像。
我该怎么办...如果形状的宽度小于 5，形状的高度小于 5，则删除该形状。

为了更容易阅读大量在线文本，我有时喜欢将所有内容粘贴到 word 中，然后重新排列。
我用句号手册行替换每个句点空白，这为每个句子提供了一个新行。这样我读得更好。由于我正在粘贴所有内容，因此图形也随之而来，所以我希望能够控制所有图像的大小，并摆脱任何不必要的图像。

Answer 1

http://yuriy-okhmat.blogspot.co.uk/2011/07/how-to-resize-all-images-in-word.html

具有完整的代码，包括 AspectHt 的定义