Ir para o conteúdo principal

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

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

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

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 o Kutools for Word e testar gratuitamente agora!

Melhores ferramentas de produtividade de escritório

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

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  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 mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir 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 no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

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

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations