Изменение размера изображений в Word

[media_kot]

Доброго времени суток. Такая задача: есть документ в котором есть картинки и формулы. Как я понял для изменения размера изображений можно использовать коллекцию inlineshape. Однако если менять все подряд экземпляры этой коллекции, то меняются не только картинки, но формулы. Пытаюсь отсечь формулы в условии if:

Sub change_pic()
Dim picture As InlineShape
For Each picture In ActiveDocument.InlineShapes 
    With picture
    If Not .OLEFormat.ProgID Like "Equation.*" Then  'вот здесь ругается, что object variable or with block is not set
    'If picture.Type = 3 Then 'так работает только в одном документе, а в другом это число по ходу другое.
        .LockAspectRatio = msoTrue
        .Width = CentimetersToPoints(8)
        .PictureFormat.ColorType = msoPictureGrayscale
    End If
    End With
Next picture
End Sub

Подскажите пожалуйста, желательно чтоб работало и для формул 2010 Ворда.