Neste artigo, mostraremos como redimensionar rapidamente várias imagens em seu documento do Word para atender a determinados requisitos.
Não é incomum ter muitas imagens inseridas em um documento do Word hoje em dia. No entanto, às vezes essas imagens devem ser definidas no mesmo tamanho. E normalmente, a imagem inserida está no estilo de quebra automática “Em linha com o texto”, o que significa que não podemos selecionar todas ao mesmo tempo. Assim, ajustar o tamanho da imagem pode ser demorado, mesmo quando há apenas várias delas.
A seguir estão 2 maneiras rápidas que você pode achar úteis.
Método 1: Use “F4”
- primeiro e primeiroost, clique duas vezes em uma imagem para entrar no modo de edição.
- Em segundo lugar, clique no botão de seta para baixo no grupo “Tamanho” na guia “Formato” para abrir a caixa de diálogo “layout”.
- Na caixa de diálogo aberta, altere a altura e a largura conforme necessário primeiro.
- Em seguida, limpe as caixas “Lock aspect ratio” e “Relative to original picture size” na parte “Scale”.
- Por fim, clique em “OK”.
- Em seguida, clique em outra imagem e pressione “F4”. Você deve descobrir que a segunda foto agora está no mesmo tamanho da anterior. “F4” aqui pode repetir a última ação.
Método 2: Use códigos VBA
De um modo geral, o método 1 já pode economizar muito tempo. No entanto, caso você ache monótono e entediante clicar na imagem e pressionar a tecla “F4”, pode contar com a ajuda de códigos VBA para concluir a tarefa de uma vez por todas.
- Para% start com, clique na guia "Desenvolvedor".
- Em seguida, clique em “Visual Basic” no grupo “Code” ou pressione “Alt+F11” para abrir o editor VBA.
- Em seguida, clique em “Normal”.
- Clique em “Inserir”.
- E escolha “Módulo”.
- Em seguida, clique duas vezes no novo módulo para abrir a área de edição.
- Cole os códigos abaixo lá:
Sub SetupAllPictureSize() Dim objInlineShape As InlineShape Dim objShape As Shape For Each objInlineShape In ActiveDocument.InlineShapes objInlineShape.Height = 500 objInlineShape.Width = 500 Next objInlineShape For Each objShape In ActiveDocument.Shapes objShape.Height = 500 objShape.Width = 500 XNUMX Próximo objShape End Sub
- Por fim, pressione o botão “Executar”.
Observações:
- Você pode alterar os valores nos códigos “objInlineShape.Height = 500” e “objInlineShape.Width = 500”, pois precisa alterar a altura e a largura das imagens no estilo de quebra automática “Em linha com o texto”.
- Você pode alterar os valores nos códigos “objShape.Height = 500” e “objShape.Width = 500” para alterar a altura e a largura das imagens que não estão no estilo de quebra automática “Em linha com o texto”.
Lidar com problemas de documentos
Um documento do Word contendo muitas imagens pode não apenas diminuir a velocidade de processamento, mas também causar danos ao documento. Uma maneira é evitar inserir muitas imagens em um arquivo do Word para que você não encontre esse problema. A outra maneira é, no entanto, obter um ferramenta de correção de problemas docx com antecedência, para que você não precise se preocupar em perder arquivos importantes.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de reparo de erro de dados xlsx e a pdf reparar produtos de software. Para mais informações visite www.datanumen.com
É possível definir apenas a largura, por exemplo, 510, mas manter a proporção de bloqueio com a altura?
1
Estou realmente inspirado com seu talento para escrever e também com a estrutura do seu blog. Este é um assunto pago ou você mesmo o personalizou? De qualquer forma, mantenha uma escrita de boa qualidade, é incomum ver um ótimo blog como este hoje em dia.
Olá, o tempo todo eu costumava verificar o site postEstou aqui de manhã cedo, pois gosto de adquirir conhecimento cada vez mais.
o.web20.services
Meu problema foi quando colei itens maiores que saíram da página. Então, manquei esse código.
Sub LarguraImagens2ajuste()
Dim i tanto tempo
Com ActiveDocument
Para i = 1 Para .InlineShapes.Count
Com .InlineShapes(i)
Se .Largura > 520 Então
.Largura = 519
Se acabar
Terminar com
Proximo eu
Terminar com
End Sub
Se tiver mais de 520 de largura, reduz a largura para 519. Que é aproximadamente a largura de um documento normal do Word. Você pode ajustar o 520 conforme necessário.
Obrigado pelo código VBA. Se alguém quiser usar largura ou altura de escala, os seguintes parâmetros podem ser usados no código (80%):
Para cada iShp em .InlineShapes
Com iShp
Se .Type = wdInlineShapePicture Ou wdInlineShapeLinkedPicture Então
.ScaleWidth = 80
.ScaleHeight = 80
Se acabar
Terminar com
Próximo iShp
Grande truque com VBA… apenas menciona que as dimensões estão em “pontos”… use o google para converter em polegadas ou milímetros
O comando F4 parece não funcionar em um Mac (ou Cmd Y). F4 parece ser um comando global, pois repete a última ação que você executou, independentemente do programa em que está; por exemplo, se você colou um termo de pesquisa em seu navegador há algum tempo, ele colará esse texto no Word (mas não no comando de redimensionamento imediatamente anterior). Não encontrei uma maneira de contornar isso.