Vai al contenuto principale

Come ridimensionare tutte / più immagini in Word?

Quando copiamo o importiamo immagini da Internet o da altri file, le dimensioni delle immagini possono essere diverse. Tutti sanno come ridimensionare le immagini una per una, ma se vogliamo ridimensionarle alla stessa dimensione tutte in una volta, come possiamo fare? Questo tutorial ti mostrerà diversi metodi per ridimensionare le immagini.

Ridimensiona manualmente le immagini in Word

Ridimensiona le immagini con VBA

Ridimensiona più immagini contemporaneamente con Kutools per Word


Ridimensiona manualmente le immagini in Word

1. Per mostrare i quadratini di ridimensionamento dell'immagine facendo clic sull'immagine;

2. Posiziona il cursore su uno dei quadratini di ridimensionamento dell'immagine.

3. Trascina il quadratino di ridimensionamento fino a quando la dimensione dell'immagine è adatta alle tue esigenze. Vedi screenshot:

doc aggiusta immagini 1

Note:: Con questo metodo, non è possibile ridimensionare più immagini contemporaneamente. È necessario ridimensionarli uno per uno finché tutte le immagini non vengono ridimensionate.


Ridimensiona le immagini con VBA

Con il seguente codice VBA, puoi ridimensionare le immagini alla dimensione ideale. Puoi farlo come segue :

In questo esempio, ridimensioniamo le dimensioni dell'immagine a 1.78 pollici di altezza e 3.17 pollici di larghezza.

1. Seleziona un'immagine di cui desideri modificare le dimensioni;

2. stampa Alt + F11 per aprire il Microsoft Visual Basic, Applications Edition finestra;

3. Clic Moduli da inserire scheda, copia e incolla il seguente codice VBA nel file Moduli finestra;

Codice VBA: ridimensiona un'immagine a una dimensione specifica:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Clicchi Correre pulsante o F5 chiave per eseguire il codice VBA e l'immagine selezionata è stata ridimensionata in base alle dimensioni desiderate.

Note:: Nel codice sopra,  In shp.Height = InchesToPoints (1.78) ed shp.Width = InchesToPoints (3.17) sono l'altezza e la larghezza dell'immagine, è possibile modificare le dimensioni in base alle proprie esigenze.

Con questo codice VBA, non puoi ridimensionare tutte o più immagini contemporaneamente. Devi andare avanti e indietro tra il documento di Word e il file Microsoft Visual Basic, Applications Edition finestra per selezionare l'immagine e applicare il codice. È troppo tempo.


Ridimensiona le immagini con Kutools per Word

Con Kutools per Word's Ridimensiona immagini utility, puoi sbarazzarti di quelle operazioni fastidiose e dispendiose in termini di tempo e ridimensionare rapidamente tutte le immagini dal tuo documento.

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

1. Si prega di applicare questa utilità facendo clic su Kutools Plus > Ridimensiona. Vedi screenshot:

2. Se desideri ridimensionare tutte le immagini a una certa percentuale della loro dimensione originale, seleziona una delle sei percentuali dall'elenco a discesa. Ad esempio, se desideri ridimensionare tutte le immagini al 50% delle loro dimensioni originali, seleziona 50%. Dopo aver cliccato 25%, vedrai che tutte le immagini sono state ridimensionate al 50%. Vedi screenshot:

doc aggiusta immagini 3

Se si desidera regolare tutte le immagini alla stessa dimensione con una selezionata, selezionare un'immagine come dimensione del modello, quindi fare clic su Kutools Plus > Ridimensiona > Ridimensiona le immagini con la selezionee tutte le immagini verranno ridimensionate alla stessa dimensione in base a quella selezionata, vedi screenshot:

doc aggiusta immagini 4

Per informazioni più dettagliate su Kutools for Word'S Ridimensiona immagini utilità, fare clic su qui.

Fai clic per scaricare Kutools per Word e la prova gratuita ora!


Demo: ridimensiona tutte le immagini contemporaneamente in Word

Kutools for Word: con più di 100 utili componenti aggiuntivi di Word, gratis da provare senza limitazioni per 60 giorni. Scarica 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!

🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto  /  Riscrivere il testo  /  Riepilogare i documenti  /  Richiedi informazioni sulla base del documento, 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 nostro 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  /  con tabelle  /  forme  /  paragrafi di intestazione  / Migliora la navigazione con Scopri di più Seleziona funzionalità...

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...

👉 Vuoi provare queste funzionalità? Kutools per Word offre a Prova gratuita 60-day, senza limitazioni! 🚀
 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations