Como colocar várias imagens em uma folha no 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 o Kutools para 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:

Nota: 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 o Kutools para 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 baixar Kutools para Word e teste gratuito agora!

Ferramentas de produtividade de palavras recomendadas

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

• Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
• Insira várias imagens em pastas em um documento do Word de uma vez.
• Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
• Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
• Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...

Como colocar várias imagens no Word em uma folha só?

Como colocar 4 imagens em uma folha do Word do mesmo tamanho?

Como colocar mais de uma imagem no Word?

Como colocar fotos na mesma página?