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

preview_player
Показать описание
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 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 = 5
ishp.Height = 150
Next ishp

For Each oILShp In ActiveDocument.InlineShapes
oILShp.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next

End Sub
Рекомендации по теме
Комментарии
Автор

Olá, uma duvida, o tamanho que preciso redimensionar é 1, 6cm de altura e 1, 4 de largura mas esse código não aceita a virgula, é preciso colocar em polegadas ou algo do tipo?

nathieli
Автор

O tanto que eu já sofri tendo que redimensionar centenas de imagens... Que benção que é vc ter se disposto a fazer esse vídeo! Obrigada!

dudinhasenna
Автор

Meu amigo vc me salvou, eu ficava redimencionando uma a uma, um mega trabalho!!! agora ficou mil vezes melhor! obrigado pela dica!!! fantástico!!!

danilocolessa
Автор

Cara seu conteúdo é muito bom e de grande ajuda. Continue fazendo seu trabalho porque ajuda muito a vida das pessoas.

sansaobentodasilva
Автор

SENSACIONAL!!! estava pesquisando vários vídeos para arrumar as imagens que colei no word e esse, é o melhor vídeo para essa busca.Muito obrigada! Deus t abençoe

lizarubenich
Автор

Boa tarde amigo, passando pra deixar o joinha e Desejar um Feliz e Abençoado final de semana!!!!
Forte Abraço e Sucesso!!!

pescadoraventureirors
Автор

Boa noite amigo, achei ótimo o que você compartilhou conosco desta vez. Obrigado por compartilhar e espero que você tenha uma semana muito bonita. Saudações e cuide-se bem.

BuscandoFauna
Автор

Um domingo abençoado e cheio de alegria para todos nós. Que nunca falte luz e felicidade em nossos caminhos! Seus vídeos são top!

mariasandra
Автор

Largando meu like para fortalecer a parceria e assistindo até o final para ajudar!!! Tenha uma ótima semana!!! TMJ sempre!!! Grande Abç.

IlhaGeek
Автор

Sei lá de quando é esse vídeo, mas vc me poupou uma meia hora de trabalho, Muito

marciomoraes
Автор

Boa noite! Obrigada por nos ensinar joia.
Tenha um otimo Domingo em familia!

canaldalu
Автор

Existe uma forma de além de alinhar ao centro, alinhar também ao meio as imagens ? Outra dúvida, existe uma forma do código reconhecer as imagens que ficam coladas em frente ao texto ? Seu vídeo abriu meus olhos e gostaria de saber se dá para ir além !

SrViniMacruz
Автор

Boa noite Cassio Nogueira! Ótima e importante dica! Gratidão!

agroflorestatupi
Автор

Boa noite querido amigo Cassio Nogueira excelente video parabéns obrigada por compartilhar🙏👍

CanalAmoraPoesiaOficial
Автор

Que sorte ter achado esse vídeo. Ajudou muito!
Muito obrigado, mesmo!!

RodrigoNash
Автор

Olá passando prá ver seu trabalho, vc está de parabéns.

edsonmellooficial.kuazetud
Автор

Cheguei já deixando positivo e valorizando seu trabalho

anatinel
Автор

Boa tarde, ótimas dicas obrigada por compartilhar conosco!!!

Naturezaedicasdecultivo
Автор

Cheguei deixando meu Like 👏👏👏👏👏👏👏👏👏sucesso!!!

canalmaefilha
Автор

Show de bolo amigo, deu certinho 21/09/23. Obrigado man !!

yjnvypn