MS Word，VBA，设置缩放到所有OLE对象

Question

MS Word（2013）文档包含许多公式（超过1000个），使用MathType创建。它们作为OLE对象包含在文档中。是否有任何简单的方法可以将参数“scale X”，“scale Y”的相同值设置为所有这些对象？

Answer 1

    Dim i  As Integer
    Dim total  As Integer

    total = ActiveDocument.InlineShapes.Count
    i = 0
    For Each oIshp In ActiveDocument.InlineShapes
        i = i + 1
        On Error Resume Next
        Application.StatusBar = "Progress: " & i & " of " & total
        With oIshp
            .ScaleHeight = 100
            .ScaleWidth = 100
        End With
    Next oIshp