Уменьшение размера формул

[Fierce]

Есть документ, в котором находяться формулы, вставленные с помощью Microsoft equation 3. Можно ли размер всех формул уменьшить, например в 2 раза?

[Fierce]

Проблему решил, правда не совсем так как надо.

Dim iShape As Object, h As Double, w As Double
For Each iShape In ActiveDocument.InlineShapes
    With iShape
        h = .Height
        w = .Width
        .Height = h / 2
        .Width = w / 2
    End With
Next

С формулами, также уменьшаеться размер всех картинок, но для меня это не проблематично

[viter.alex]

Чтобы изменять только формулы поставьте проверку на тип объекта, например так:

Dim iShape As Object
For Each iShape In ActiveDocument.InlineShapes
    If iShape.OLEFormat.ClassType = "Equation.3" Then
        With iShape
            .Height = .Height / 2
            .Width = .Width / 2
        End With
    End If
Next