Note: The other languages of the website are Google-translated. Back to English

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

Nota: 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 desde 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 Corrida botão ou F5 para executar o código VBA e a imagem selecionada foi redimensionada para o tamanho de sua necessidade.

Nota: No código acima,  Em shp.Height = InchesToPoints (1.78) e às 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 o Kutools for Word

Com a 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 aqui.

Clique para baixar Kutools para Word e teste gratuito 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!


Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (6)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
economize seu dinheiro e execute esta 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 Finalizar Sub
Este comentário foi feito pelo moderador no site
economize seu dinheiro e execute esta macro: Crédito para 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 Com Sub Final Excelente!!! Você economizou meu dinheiro e meu tempo. Muito obrigado!
Este comentário foi feito pelo moderador no site
Onde coloco esse código?
Este comentário foi feito pelo moderador no site
Alguém sabe se um recurso de dimensionamento automático de espaço reservado/conta-gotas/imagem está disponível no Windows 365? Não faço ideia de onde procurar ou encontrar assistência sobre isso, pois a ajuda do bate-papo da Microsoft foi TÃO inútil. Quaisquer dicas seriam extremamente apreciadas.
Este comentário foi feito pelo moderador no site
Eu preciso redimensionar todas as imagens em um documento do Word para a mesma largura, mas não deformar as imagens. então dimensione-os para a mesma largura. Isso é possível através de uma macro?
Este comentário foi feito pelo moderador no site
Se você salvar seu documento como .docx, poderá abri-lo como arquivo zip. Haverá pasta de mídia com todas as imagens (a minha tinha imagens PNG). Você pode então usar programas como IrfanView, XnViewMP, FastStone Viewer para realizar transformações em lote como redimensionar, reduzir a profundidade de cor, etc. Empacote suas imagens de volta em zip e renomeie-as para docx. Por exemplo, no meu docx cheio de capturas de tela, precisei reduzir o número de cores para 8, o que é suficiente para fins de documentação. Depois de processar, meu documento de 10 MB se tornou um documento de 1.8 MB, portanto, a economia pode ser significativa. Sempre salve seu docx original caso queira restaurar imagens após muita degradação/processamento, etc.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos