Vai al contenuto principale

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

Autore: Xiaoyang Ultima modifica: 2020-05-22

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

doc inserire immagini con la stessa dimensione 1

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

doc inserire immagini con la stessa dimensione 2

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

doc inserire immagini con la stessa dimensione 3

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

doc inserire immagini con la stessa dimensione 4

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


Ridimensiona tutte le immagini alla stessa dimensione in base a un'immagine specifica con Kutools per 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.

Kutools for Word : con più di 100 utili componenti aggiuntivi di Word, liberi di provare senza limitazioni in 60 giorni. 

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:

Fai clic per scaricare Kutools per Word e la 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!

🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto  /  Riscrivere il testo  /  Riepilogare i documenti  /  Ottieni risposte rapide, tutto all'interno di Word

📘 Padronanza dei documenti: Pagine divise  /  Unisci documenti  /  Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...)  /  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 Rimuovi gruppo...

Inserti creativi: Inserisci 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ù nella Inserisci gruppo...

???? Selezioni di precisione: Individuare Pagine specifiche  /  tavoli  /  Forme  /  Paragrafi dell'intestazione  / Migliora la navigazione con Scopri di più Seleziona funzionalità...

Miglioramenti delle stelle: Passare a qualsiasi posizione  /  Inserisci automaticamente testo ripetitivo  /  Alterna tra le finestre dei documenti  /  11 strumenti di conversione...

👉 Vuoi provare queste funzionalità? Scarica Kutools per Word oggi e sperimenta la differenza! 🚀
 
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations