Como padronizar tamanho de imagens inseridas. Alterar o tamanho de todas as imagens inseridas de uma só vez.

Você pode usar a rotina abaixo para automaticamente converter todas as imagens de um Documento para a largura desejada:

Sub RedimensionarImagens()

Dim ishp As InlineShape

For Each ishp In ActiveDocument.InlineShapes ishp.width = 50 Next ishp

End Sub

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Deverá usar a propriedade LockAspectRatio e habilitá-la para falso em cada uma das formas:

Sub RedimensionarImagens()

Dim ishp As InlineShape

For Each ishp In ActiveDocument.InlineShapes

ishp.LockAspectRatio = msoFalse

ishp.Width = 100

Next ishp

End Sub

Luciana,

Uma rotina é um programa em escrito em VBA. Para utilizá-la, pressione Alt+F11 no Word, clique com o botão da direita em uma Pasta e adicione um Módulo. Cole o código e depois execute-o pressionando F5 ou então volte ao Word, pressione Alt+F8 e execute o código RedimensionarImagens. Se mesmo assim não conseguir, leia http://www.ambienteoffice.com.br/officevba/modulos_em_vba/

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Comigo está funcionando.

Observe que, para que as imagens mudem de dimensão novamente, não basta apenas que os valores sejam alterados. Você tem que alterar os valores e pressionar F5 paraexecutar a rotina novamente. Você está fazendo isso?

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Tente usar o código abaixo

Sub RedimensionarImagens()

Dim ishp As InlineShape

For Each ishp In ActiveDocument.InlineShapes 'Para alterar Largura da Imagem: ishp.Width = 333

'Para alterar Altura da Imagem: ishp.Height = 251

Next ishp End Sub

Se não der certo, experimente você mesma aumentar ou diminuir os valores sublinhados até encontrar um formato que te agrade.

Felipe Costa Gualberto - http://www.ambienteoffice.com.br