Como redimensionar várias imagens do Word de uma só vez

Publicado em por

1° passo:

2° PASSO:

3° PASSO:

4° PASSO:

5° PASSO:

6° PASSO:

1) Caso você queira apenas REDIMENSIONAR:

Sub RedimensionarImagens()

    Dim ishp As InlineShape
    
    For Each ishp In ActiveDocument.InlineShapes
        ishp.LockAspectRatio = msoFalse
        ishp.Width = 5
        ishp.Height = 150
    Next ishp
End Sub





2 ) Caso você queira REDIMENSIONAR e ALINHAR:

Sub RedimensionarImagens()

    Dim ishp As InlineShape
    
    For Each ishp In ActiveDocument.InlineShapes
        ishp.LockAspectRatio = msoFalse
        ishp.Width = 150
        ishp.Height = 150
    Next ishp
    
    For Each oILShp In ActiveDocument.InlineShapes
    oILShp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next

PRONTO