Come inserire e ridimensionare immagini con le stesse dimensioni in Word?

Di norma, è possibile inserire più immagini contemporaneamente in un documento Word mantenendone le dimensioni originali. Tuttavia, per garantire un aspetto coerente e professionale, potrebbe essere necessario uniformare le dimensioni di tutte le immagini. Ridimensionarle manualmente una per una richiede tempo e precisione. Questa guida ti mostra come inserire in modo rapido ed efficiente più immagini in Word e ridimensionarle in modo uniforme, assicurando un layout armonioso e dall’impatto professionale.

Inserire e ridimensionare più immagini con le stesse dimensioni in Word utilizzando VBA

Ridimensionare tutte le immagini in base a un'immagine specifica utilizzando Kutools per Word

Inserire e ridimensionare più immagini con le stesse dimensioni in Word utilizzando VBA

Il seguente codice VBA ti permette di inserire più immagini e ridimensionarle tutte contemporaneamente alle dimensioni desiderate. Segui questi semplici passaggi:

1. Tenga premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.

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. Premere F5 per eseguire questo codice. Verrà visualizzata una finestra di Esplora. Seleziona la cartella contenente le immagini da inserire e fai clic su OK.
4. Verrà visualizzato un messaggio che chiede se desideri ridimensionare le immagini. Clicca su Sì.
5. Immettere l'altezza e la larghezza in punti (pt), separati da una virgola, nella casella di testo visualizzata, quindi fare clic su OK.

   

6. Tutti gli elementi «Inserisci immagine» verranno ora ridimensionati alle dimensioni specificate.

   

Ridimensionare tutte le immagini in base a un'immagine specifica utilizzando Kutools per Word

Quando un documento Word contiene molte immagini, ridimensionarle una per una può diventare noioso. Con Kutools per Word, lo strumento Ridimensiona Immagini ti permette di ridimensionare rapidamente tutte le immagini in base a quella selezionata.

1. Regola un'immagine alle dimensioni desiderate e selezionala. Poi fai clic su KUTOOLS PLUS > Ridimensiona > Ridimensiona Tutte le Immagini in Base alla Selezione.

Tutte le immagini nel documento Word verranno ridimensionate istantaneamente in base alle dimensioni dell’immagine selezionata.

Migliori strumenti per la produttività in Office

Kutools per Word – Migliora la tua esperienza con Word grazie a oltre 100 funzionalità eccezionali!

🤖Funzionalità KUTOOLS AI: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni formato) / Super Traduci (Mantieni formato) / Redazione AI / Correzione AI…

📘Padronanza dei documenti: Dividi pagine, unisci documenti, esporta la selezione in vari formati (PDF, TXT, DOC, HTML…) e conversione batch in PDF…

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

🧹Pulizia senza sforzo: Elimina in un attimo spazi extra, interruzioni di sezione, caselle di testo e collegamenti ipertestuali. Per altri strumenti di rimozione, vai al gruppo Rimuovi…

➕Inserimenti creativi: Inserisci separatori delle migliaia, caselle di controllo, pulsanti di opzione, codici QR, codici a barre e immagini multiple. Scopri di più nel gruppo Inserisci…

🔍Selezioni precise: Individua con precisione pagine specifiche, tabelle, forme, paragrafi di intestazione e migliora la navigazione con altre funzionalità ...Seleziona...

⭐Miglioramenti stellari: Passa a qualsiasi posizione / Inserimento automatico di testo ripetitivo / Alterna tra i documenti Windows / 11 strumenti di conversione Strumenti di...

🌍Supporta oltre 40 lingue: Usa Kutools nella tua lingua preferita – tra cui inglese, spagnolo, tedesco, francese, cinese e molte altre!

 

Download gratuito     Acquista ora     Scopri di più

 

---

Office Tab- Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, anziché in nuove finestre.
• Aumenta la tua produttività del 50 % e riduci centinaia di clic del mouse ogni giorno!

Download gratuito     Acquista ora     Scopri di più

 

---

✨ Kutools for Office – Un’installazione, cinque strumenti potenti!

Include Office Tab Pro·Kutools per Excel·Kutools per Outlook·Kutools per Word·Kutools for PowerPoint

📦 Ottieni tutti gli 5 strumenti in un’unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta immediatamente la produttività

⬇️ Scarica ora🎁 Acquista la Suite completa📖 Scopri di più

Migliori strumenti per la produttività in Office

Kutools per Word- Strumenti 100+ per Word

• 🤖KUTOOLS AI Funzionalità:Assistente AI/Assistente in Tempo Reale/Super Lucida/Super Traduci/Redazione AI/Correzione AI
• 📘Padronanza dei documenti:Dividi pagine/Unisci Documenti/Conversione batch in PDF
• ✏Modifica contenuti:Trova e sostituisci in batch/Ridimensiona tutte le immagini
• 🧹Pulizia senza sforzo:Rimuovi spazi extra/Rimuovi Interruzione di sezione
• ➕Inserimenti creativi:Inserisci separatori delle migliaia/Inserisci Casella di Controllo/Crea Codice QR
• 🌍Supporta oltre 40 lingue: Kutools parla la tua lingua – sono supportate oltre 40 lingue!

Download gratuitoAcquista oraScopri di più su Kutools