Como alterar todas as imagens no Word de uma só vez (Tamanho e Alinhamento)

Pessoal, vou colocar aqui os códigos do VBA, tanto para você quiser alterar o tamanho e caso você queira alterar o tamanho e o alinhamento. É só selecionar o código, dar control C e dar control V na página em branco do “ThisDocument“ no VBA e fazer os ajustes nos valores e/ou no alinhamento. 1) Caso você queira apenas REDIMENSIONAR: Sub RedimensionarImagens() Dim ishp As InlineShape For Each ishp In = msoFalse = 5 = 150 Next ishp End Sub 2 ) Caso você queira REDIMENSIONAR e ALINHAR: Sub RedimensionarImagens() Dim ishp As InlineShape For Each ishp In = msoFalse = 5 = 150 Next ishp For Each oILShp In = wdAlignParagraphCenter Next End Sub