Como inserir e redimensionar imagens com o mesmo tamanho no Word?
Normalmente, pode inserir várias imagens de uma só vez num documento do Word com o respetivo tamanho original. Contudo, há ocasiões em que precisa de garantir que todas as imagens têm as mesmas dimensões, para obter um aspeto consistente e profissional. Redimensionar manualmente cada imagem pode ser moroso. Este guia mostra-lhe como inserir eficientemente várias imagens num documento do Word e redimensioná-las uniformemente, assegurando uma disposição profissional e coesa.
Inserir e redimensionar várias imagens para o mesmo tamanho no Word utilizando VBA
Inserir e redimensionar várias imagens para o mesmo tamanho no Word utilizando VBA
O código VBA seguinte permite-lhe inserir várias imagens e redimensioná-las simultaneamente para as dimensões que especificar. Siga estes passos:
- Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
- Prima F5 para executar este código. Aparecerá uma janela de Navegação. Selecione a pasta que contém as imagens que pretende inserir e clique em OK.
- Ser-lhe-á apresentada uma mensagem a perguntar se pretende redimensionar as imagens. Clique em Sim.
- Introduza a altura e a largura em pontos (pt), separadas por uma vírgula, na caixa de texto que aparece e, em seguida, clique em OK.
- Todas as imagens inseridas serão agora redimensionadas para as dimensões especificadas.
Sub InsertSpecificNumberOfPictureForEachPage()
Dim xDlg As FileDialog
Dim xFilePath As String
Dim xFileName As String
Dim xMsbBoxRtn As Long
Dim xPicSize As String
Dim xShape As InlineShape
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFilePath = xDlg.SelectedItems(1) & "\"
Else
Exit Sub
End If
xFileName = Dir(xFilePath & "*.*", vbNormal)
While xFileName <> ""
If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
GoTo LblCtn
End If
With Selection
.InlineShapes.AddPicture xFilePath & xFileName, False, True
.TypeParagraph
.Collapse wdCollapsEnd
.TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
End With
LblCtn:
xFileName = Dir()
Wend
ActiveDocument.InlineShapes(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
If xMsbBoxRtn = 6 Then
xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
End If
For Each xShape In ActiveDocument.InlineShapes
xShape.Height = Split(xPicSize, ",")(0)
xShape.Width = Split(xPicSize, ",")(1)
Next xShape
End Sub
Redimensionar todas as imagens para corresponder a uma imagem específica utilizando Kutools para Word
Quando o seu documento do Word contém várias imagens, redimensioná-las uma a uma pode ser tedioso. Com o Kutools para Word, a funcionalidade Redimensionar Imagens permite-lhe redimensionar rapidamente todas as imagens para corresponderem ao tamanho de uma imagem específica.
Kutools para Word
O Kutools para Word ajuda-o a realizar tarefas diárias com documentos de forma mais rápida, graças a ferramentas práticas integradas diretamente no Microsoft Word — sem necessidade de programação nem configuração complexa.
- Redação, aperfeiçoamento, tradução e resumo com IA
- Localizar e Substituir em Lote em todos os documentos
- Combine e divida documentos do Word facilmente
- Conversão em lote entre Word ↔ PDF
- Ajuste uma imagem ao tamanho pretendido e selecione-a. Em seguida, clique em KUTOOLS PLUS > Redimensionar > Redimensionar Todas as Imagens com Base na Seleção.
Todas as imagens no documento do Word serão redimensionadas imediatamente para corresponder ao tamanho da imagem selecionada.
As Melhores Ferramentas de Produtividade para o Office
Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!
🤖Funcionalidades do KUTOOLS AI: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA…
📘Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...
✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...
🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...
➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...
🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......
⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...
🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint
📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade
As Melhores Ferramentas de Produtividade para o Office
Kutools para Word– Ferramentas 100+ para o Word
- 🤖KUTOOLS AI Funcionalidades:Assistente de IA/Assistente em Tempo Real/Super Polir/Super Traduzir/Redação por IA/Revisão por IA
- 📘Domínio de Documentos:Dividir Páginas/Mesclar Documentos/Conversão em Lote para PDF
- ✏Edição de Conteúdos:Localizar e Substituir em Lote/Redimensionar Todas as Imagens
- 🧹Limpeza sem Esforço:Remover Espaços Extra/Remover Quebra de Seção
- ➕Inserções Criativas:Inserir Separadores de Milhares/Inserir Caixa de Seleção/Criar Códigos QR
- 🌍Suporta mais de 40 idiomas: O Kutools fala a sua língua – com suporte a mais de 40 idiomas!