MS Word, VBA, 모든 OLE 개체에 축척 설정

Question

MathType으로 만든 수식이 1000 개 이상인 MS Word (2013) 문서가 있습니다. 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