Come inserire più immagini con le stesse dimensioni nel documento di Word?

Normalmente, puoi inserire più immagini contemporaneamente in un documento di Word con le loro dimensioni originali. A volte, è necessario disporre queste immagini alla stessa dimensione durante l'inserimento. In questo articolo, parlerò di come inserire più immagini con la stessa dimensione in un documento di Word.

Inserisci più immagini con le stesse dimensioni nel documento Word con codice VBA

Ridimensiona tutte le immagini alla stessa dimensione in base a un'immagine specifica con Kutools for Word

Inserisci più immagini con le stesse dimensioni nel documento Word con codice VBA

Il seguente codice vba può aiutarti a inserire più immagini e ridimensionarle contemporaneamente alla dimensione specificata, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

Codice VBA: inserisci più immagini con le stesse dimensioni:

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 poi, premi F5 chiave per eseguire questo codice, a Scopri la nostra gamma di prodotti viene visualizzata la finestra, selezionare la cartella che contiene le immagini che si desidera inserire, vedere screenshot:

4. Quindi fare clic OK e viene visualizzata una finestra di prompt per ricordarti se vuoi ridimensionare le immagini, vedi screenshot:

5. Clic Sìe digitare i numeri di dimensione dell'altezza e della larghezza che sono separati da virgola nella casella di testo, vedi screenshot:

6. E poi clicca OK, tutte le immagini inserite sono state riorganizzate con le stesse dimensioni, vedi screenshot:

Note:: la dimensione dell'unità è stagno nel codice VBA.

Ridimensiona tutte le immagini alla stessa dimensione in base a un'immagine specifica con Kutools for Word

Se esistono più immagini nel documento di Word, con Kutools for Word'S Ridimensiona immagini utility, puoi ridimensionare rapidamente tutte le immagini come quelle specifiche.

Dopo l'installazione Kutools for Word, per favore fai come questo:

1. Regola un'immagine alla dimensione desiderata, quindi selezionala, quindi fai clic su Kutools Plus > Ridimensiona > Ridimensiona le immagini con la selezione, vedi screenshot:

2. E tutte le immagini in questo documento word sono state ridimensionate immediatamente come quella selezionata, vedi screenshot:

Clicca per scaricare Kutools for Word e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!

Immergiti nelle funzionalità evidenziate di seguito o clicca qui per esplorare tutta la potenza di Kutools for Word.

📘 Padronanza dei documenti: Pagine divise  /  Unisci documenti  /  Esporta la selezione in vari formati (PDF/TXT/DOC/XLSX)  /  Converti in batch in PDF  /  Esporta pagine come immagini  /  Stampa più file contemporaneamente ...

✏ Modifica dei contenuti: Trova e sostituisci in batch su più file   /  Ridimensiona tutte le immagini   /  Trasporre righe e colonne della tabella  /  Converti tabella in testo ...

🧹 Pulito senza sforzo: Spazza via Spazi extra  /  Interruzioni di sezione  /   Tutte le intestazioni  /  Caselle di testo  /  Collegamenti ipertestuali  /  Per ulteriori strumenti di rimozione, vai al nostro Gruppo di rimozione

➕ Inserti creativi: inserire Mille separatori  /  Caselle di controllo  /  Pulsanti di scelta  /  QR Code  /  Codice a barre  /  Tabella della linea diagonale  /  Didascalia dell'equazione  /  Didascalia immagine  /  Didascalia  /  Immagini multiple  /  Scopri di più nel nostro Gruppo Inserisci

???? Selezioni di precisione: Individua pagine specifiche  /  con tabelle  /  forme  /  paragrafi di intestazione  /  Naviga con facilità utilizzando il nostro Seleziona gruppo

⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo  /  inserire automaticamente testo ripetitivo  /  passare senza problemi da una finestra all'altra del documento  /  11 strumenti di conversione ...

Trasforma le tue attività di Word con Kutools. 👉 Scarica subito con la prova di 30 giorni 🚀.

Leggi Ora       Scarica gratis      Acquista