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 for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...
✏ Modifica del Testo: 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 Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...
⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!
✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!
Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint
📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività
I migliori strumenti per la produttività in ufficio
Kutools for Word - 100+ strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!