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 Escritório
Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!
🤖 Recursos de IA do Kutools: 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 do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...
✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...
🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...
⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...
🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!
Melhores Ferramentas de Produtividade para Escritório
Kutools para Word – 100+ ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes
- 🌍 Suporte a mais de40 idiomas: Kutools fala o seu idioma – mais de40 idiomas compatíveis!