Como inserir várias imagens com o mesmo tamanho em um documento do Word?

Normalmente, você pode inserir várias imagens de uma vez em um documento do Word com seu tamanho original. Às vezes, você precisa organizar essas imagens para o mesmo tamanho ao inserir. Neste artigo, falarei sobre como inserir várias imagens com o mesmo tamanho em um documento do Word.

Insira várias imagens com o mesmo tamanho em um documento do Word com código VBA

Redimensione todas as imagens para o mesmo tamanho com base em uma imagem específica com Kutools for Word

Insira várias imagens com o mesmo tamanho em um documento do Word com código VBA

O seguinte código vba pode ajudá-lo a inserir várias imagens e redimensioná-las para o tamanho especificado de uma vez, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: insira várias imagens com o mesmo tamanho:

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

3. E então, pressione F5 chave para executar este código, um Procurar janela for exibida, selecione a pasta que contém as imagens que deseja inserir, consulte a captura de tela:

4. Então clique OK botão, e uma caixa de promptf é exibida para lembrá-lo se você deseja redimensionar as imagens, consulte a captura de tela:

5. Clique Sim, e digite os números do tamanho da altura e largura separados por vírgula na caixa de texto, veja a captura de tela:

6. E, em seguida, clique em OK, todas as imagens inseridas foram reorganizadas com o mesmo tamanho, consulte a captura de tela:

Anote os: o tamanho da unidade é lagoa no código VBA.

Redimensione todas as imagens para o mesmo tamanho com base em uma imagem específica com Kutools for Word

Se houver várias imagens em seu documento do Word, com Kutools for Word'S Redimensionar imagens utilitário, você pode redimensionar rapidamente todas as imagens da mesma forma que a específica.

Depois de instalar Kutools for Word, por favor, faça o seguinte:

1. Ajuste uma imagem para o tamanho desejado, selecione-a e clique em Kutools Plus > Redimensionar > Redimensionar imagens com seleção, veja a captura de tela:

2. E todas as imagens neste documento do Word foram redimensionadas da mesma forma que a selecionada imediatamente, veja a captura de tela:

Clique para fazer o download Kutools for Word e teste grátis agora!

Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

Mergulhe nos recursos destacados abaixo ou clique aqui para explorar todo o poder do Kutools for Word.

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/XLSX)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez ...

✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos   /  Redimensionar todas as imagens   /  Transpor linhas e colunas da tabela  /  Converter tabela em texto ...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /   Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  /  Para obter mais ferramentas de remoção, acesse nosso Grupo de remoção

➕ Inserções criativas: inserção Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  /  Descubra mais em nosso Grupo Inserir

🔍 Seleções de precisão: Identifique páginas específicas  /  tabelas  /  formas  /  parágrafos de título  /  Navegue com facilidade usando nosso Select Group

⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão ...

Transforme suas tarefas do Word com o Kutools. 👉 Baixe agora com teste de 30 dias 🚀.

Saiba Mais       Download grátis      Comprar