Como inserir e redimensionar imagens para o mesmo tamanho no Word?
Normalmente, você pode inserir várias imagens de uma vez em um documento do Word com seus tamanhos originais. No entanto, há momentos em que é necessário garantir que todas as imagens tenham o mesmo tamanho para um visual consistente e profissional. Redimensionar manualmente cada imagem pode ser demorado. Este guia mostrará como inserir várias imagens em um documento do Word de forma eficiente e redimensioná-las uniformemente, garantindo um layout profissional e coeso.
Inserir e redimensionar várias imagens para o mesmo tamanho no Word usando VBA
Redimensionar todas as imagens para corresponder a uma imagem específica usando Kutools para Word
Inserir e redimensionar várias imagens para o mesmo tamanho no Word usando VBA
O seguinte código VBA pode ajudá-lo a inserir várias imagens e redimensioná-las para as dimensões especificadas de uma só vez. Por favor, siga estas etapas:
- Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.
- Pressione F5 para executar este código. Uma janela Procurar aparecerá. Selecione a pasta contendo as imagens que deseja inserir e clique em OK.
- Um prompt aparecerá perguntando se você deseja redimensionar as imagens. Clique em Sim.
- Insira a altura e a largura em pontos (pt), separados por uma vírgula, na caixa de texto que aparece e depois clique em OK.
- Todas as imagens inseridas agora serão 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 usando Kutools para Word
Quando seu documento do Word contém várias imagens, redimensioná-las uma por uma pode ser tedioso. Com Kutools para Word, a ferramenta Redimensionar Imagens permite redimensionar rapidamente todas as imagens para corresponder ao tamanho de uma específica.
- Ajuste uma imagem para o tamanho desejado 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 imediatamente redimensionadas para corresponder ao tamanho da imagem selecionada.
Melhores Ferramentas de Produtividade para Office
Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!
🤖 Funcionalidades de IA do Kutools: AI Assistant / 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...) / Converter em Lote para PDF...
✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...
🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...
🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente
Melhores Ferramentas de Produtividade para Office
Kutools for Word – 100+ ferramentas para Word
- 🤖 Funcionalidades de IA do Kutools: AI Assistant / 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 / Converter em Lote para PDF
- ✏ Edição de Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
- 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
- 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!