Skip to main content

Como inserir e redimensionar imagens para o mesmo tamanho no Word?

Author: Xiaoyang Last Modified: 2025-06-04

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:

  1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
  2. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.
  3. 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
    
  4. Pressione F5 para executar este código. Uma janela Procurar aparecerá. Selecione a pasta contendo as imagens que deseja inserir e clique em OK.

    Browse window

  5. Um prompt aparecerá perguntando se você deseja redimensionar as imagens. Clique em Sim.

    Confirmation dialog saying 'Do you want to resize all pictures?'

  6. 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.

    Dialog box to specify size

  7. Todas as imagens inseridas agora serão redimensionadas para as dimensões especificadas.

    All the inserted images are resized


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.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.
  1. 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.

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

Todas as imagens no documento do Word serão imediatamente redimensionadas para corresponder ao tamanho da imagem selecionada.

All pictures are resized to match the size of the selected picture

Kutools para Word é o complemento definitivo para o Word que simplifica seu trabalho e aprimora suas habilidades de processamento de documentos. Adquira agora!

Melhores Ferramentas de Produtividade para Office

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 (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: 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 Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine 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 Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word