Come inserire e ridimensionare immagini alla stessa dimensione in Word?
Normalmente, puoi inserire più immagini contemporaneamente in un documento Word mantenendo le loro dimensioni originali. Tuttavia, ci sono momenti in cui è necessario assicurarsi che tutte le immagini abbiano la stessa dimensione per un aspetto coerente e professionale. Ridimensionare manualmente ogni immagine può essere dispendioso in termini di tempo. Questa guida ti mostrerà come inserire in modo efficiente più immagini in un documento Word e ridimensionarle uniformemente, garantendo un layout professionale e coeso.
Inserisci e ridimensiona più immagini alla stessa dimensione in Word utilizzando VBA
Ridimensiona tutte le immagini in base a una specifica immagine utilizzando Kutools per Word
Inserisci e ridimensiona più immagini alla stessa dimensione in Word utilizzando VBA
Il seguente codice VBA può aiutarti a inserire più immagini e ridimensionarle alle dimensioni specificate in una sola volta. Segui questi passaggi:
- Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
- Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.
- Premi F5 per eseguire questo codice. Apparirà una finestra Sfoglia. Seleziona la cartella contenente le immagini che desideri inserire e clicca OK.
- Apparirà un suggerimento che chiede se desideri ridimensionare le immagini. Clicca Sì.
- Inserisci l'altezza e la larghezza in punti (pt), separate da una virgola, nella casella di testo che appare, quindi clicca OK.
- Tutte le immagini inserite verranno ora ridimensionate alle dimensioni specificate.
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
Ridimensiona tutte le immagini in base a una specifica immagine utilizzando Kutools per Word
Quando il tuo documento Word contiene più immagini, ridimensionarle una per una può essere noioso. Con Kutools per Word, l'utilità Ridimensiona Immagini ti permette di ridimensionare rapidamente tutte le immagini in base alla dimensione di una specifica.
- Regola una foto alla dimensione desiderata e selezionala. Poi clicca Kutools Plus > Ridimensiona > Ridimensiona Tutte le Immagini in Base alla Selezione.
Tutte le immagini nel documento Word verranno immediatamente ridimensionate in base alla dimensione dell'immagine selezionata.
I migliori strumenti per la produttività in ufficio
Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...
✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...
🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...
⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!
I migliori strumenti per la produttività in ufficio
Kutools per Word - 100+ Strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Converti in batch in PDF
- ✏ Modifica dei Contenuti: Trova e sostituisci in batch / Ridimensiona tutte le immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Inserisci Caselle di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!