Ir para o conteúdo principal

Como redimensionar todas / várias imagens no Word?

Quando copiamos ou importamos imagens da Internet ou outros arquivos, o tamanho das imagens pode variar. Todos sabem redimensionar as fotos uma a uma, mas se quisermos redimensioná-las para o mesmo tamanho todas de uma vez, como podemos fazer? Este tutorial mostrará vários métodos de redimensionamento de imagens.

Redimensionar imagens manualmente no Word

Redimensionar imagens com VBA

Redimensione várias imagens de uma vez com o Kutools for Word


Redimensionar imagens manualmente no Word

1. Para mostrar as alças de dimensionamento da imagem clicando na imagem;

2. Coloque o cursor em uma das alças de dimensionamento da imagem.

3. Arraste a alça de dimensionamento até que o tamanho da imagem seja adequado às suas necessidades. Veja a imagem:

doc ajustar imagens 1

Note: Com este método, você não pode redimensionar várias imagens de uma vez. Você precisa redimensioná-los um por um até que todas as imagens sejam redimensionadas.


Redimensionar imagens com VBA

Com o seguinte código VBA, você pode redimensionar as imagens para o tamanho ideal. Você pode fazer isso da seguinte maneira:

Neste exemplo, redimensionamos o tamanho da imagem para 1.78 polegadas de altura e 3.17 polegadas de largura.

1. Selecione uma imagem cujo tamanho deseja alterar;

2. pressione Alt + F11 para abrir o Microsoft Visual Basic para Aplicações janela;

3. Clique Módulo da inserção guia, copie e cole o seguinte código VBA no Módulo janela;

Código VBA: redimensione uma imagem para um tamanho específico:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Clique Execute botão ou F5 para executar o código VBA e a imagem selecionada foi redimensionada para o tamanho de sua necessidade.

Note: No código acima,  Em shp.Height = InchesToPoints (1.78) e shp.Width = InchesToPoints (3.17) são a altura e largura da imagem, você pode alterar o tamanho para atender às suas necessidades.

Com este código VBA, você também não pode redimensionar todas ou várias imagens de uma vez. Você precisa ir e voltar entre o documento do Word e o Microsoft Visual Basic para Aplicações janela para selecionar a imagem e aplicar o código. Isso é muito demorado.


Redimensione imagens com Kutools for Word

Com o Kutools para Word's Redimensionar imagens utilitário, você pode se livrar dessas operações chatas e demoradas e redimensionar rapidamente todas as imagens do seu documento.

Kutools for Word : com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. 

1. Aplique este utilitário clicando em Kutools Plus > Redimensionar. Veja a imagem:

2. Se você deseja redimensionar todas as imagens para uma certa porcentagem do tamanho original, selecione uma das seis porcentagens na lista suspensa. Por exemplo, se você deseja redimensionar todas as imagens para 50% do tamanho original, selecione 50%. Depois de clicar 25%, você verá que todas as fotos foram dimensionadas para 50%. Veja a imagem:

doc ajustar imagens 3

Se você deseja ajustar todas as imagens para o mesmo tamanho com uma selecionada, selecione uma imagem como o tamanho do modelo e clique em Kutools Plus > Redimensionar > Redimensionar imagens com seleção, e todas as imagens serão redimensionadas para o mesmo tamanho com base no selecionado, consulte a captura de tela:

doc ajustar imagens 4

Para obter informações mais detalhadas sobre Kutools for Word'S Redimensionar imagens utilitário, por favor clique SUA PARTICIPAÇÃO FAZ A DIFERENÇA.

Clique para baixar o Kutools for Word e testar gratuitamente agora!


Demonstração: redimensionar todas as imagens de uma vez no Word

Kutools for Word: com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. Baixe e teste grátis agora!

Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations