Изменение размера всех изображений, больше заданного размера с помощью макроса в Microsoft Word 2007?

Question

У меня есть документ Word с около 5000 изображений. Есть два типа, один, которые имеют низкую высоту, и другие, которые выше. Я только хочу изменить размеры тех, которые выше, чем 1 см, чтобы иметь ширину 2,3 см. У меня есть макрос для изменения размера всех фотографий, но если есть способ добавить условие, о котором я упоминал, пожалуйста, дайте мне знать.

Вот макрос, который я использовал для изменения размера всех изображений.

Sub SizeAllImage()
Dim pic As Long
With ActiveDocument
For pic = 1 To .InlineShapes.Count
    With .InlineShapes(pic)
        .Width = CentimetersToPoints(2.3)
    End With
Next pic
End With
End Sub

Answer 1

Один из возможных способов создания этого условного макроса - это использование If для проверки высоты выбранного изображения. (спасибо за помощь Тане).

Sub SizeAllImage()
Dim pic As Long
With ActiveDocument
For pic = 1 To .InlineShapes.Count
    With .InlineShapes(pic)
 If .Height >= CentimetersToPoints(1) Then
    .Width = CentimetersToPoints(2.3)
End If    
End With
Next pic
End With
End Sub