Redimensionando todas as imagens, maiores que um determinado tamanho com macro no Microsoft Word 2007?

Question

Eu tenho um documento do Word com cerca de 5000 fotos. Existem dois tipos, os que têm baixa altura, e outros, que são mais altos. Eu só quero redimensionar os maiores que 1 cm para ter uma largura de 2,3 cm. Eu tenho macro para redimensionar todas as fotos, mas se houver uma maneira de adicionar condição, que eu mencionei, por favor me avise.

Aqui está a macro que usei para redimensionar todas as imagens.

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

Uma maneira possível de criar essa macro condicional é usando um If para verificar a altura da imagem selecionada. (obrigado pela ajuda a Tanya).

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