Note: The other languages of the website are Google-translated. Back to English

 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 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:

doc inserir imagens com mesmo tamanho 1

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:

doc inserir imagens com mesmo tamanho 2

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:

doc inserir imagens com mesmo tamanho 3

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

doc inserir imagens com mesmo tamanho 4

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.

Kutools for Word : com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. 

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 ...
Comentários (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi Olá
Eu sou Soda, estou aqui para dizer isso, eu realmente aprendo muito com seu site e informações que você dá.
Obrigado por isso :)
Este comentário foi feito pelo moderador no site
obrigado pela ajuda ... é muito interessante ... grande trabalho ... boa sorte
Este comentário foi feito pelo moderador no site
Molto bello e útil! Não mi é chiara solo em uma cosa, no Codice VBA com critério de aumento/diminuição da dimensão da imagem? Percentual/rapporto? pixel? cm?
OBRIGADA!
Este comentário foi feito pelo moderador no site
Olá, Grasselli
O tamanho da unidade é lagoa no código VBA acima.
Obrigado!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos