Sub EqMathtype_100()
'
' EqMathtype_100 Macro
'
'
Dim i  As Integer
Dim total  As Integer

total = ActiveDocument.InlineShapes.Count
i = 0
   
For Each s In ActiveDocument.InlineShapes
    i = i + 1
    On Error Resume Next
    Application.StatusBar = "Progress: " & i & " of " & total
    If s.Type = msoAutoShape Then
        If s.OLEFormat.ClassType = "Equation.DSMT4" Then
            With s
                .ScaleHeight = 100
                .ScaleWidth = 100
            End With
        End If
    End If
Next
End Sub