Salt la conținutul principal

Cum să redimensionați toate imaginile / mai multe din Word?

Autor: Sun Ultima modificare: 2024-07-03

Când copiați sau importați imagini de pe Internet sau din alte fișiere, dimensiunile acestor imagini pot varia semnificativ. În timp ce redimensionarea imaginilor una câte una este o sarcină comună, a face acest lucru pentru mai multe imagini poate fi consumatoare de timp. Acest tutorial vă va ghida prin mai multe metode, începând cu redimensionarea unei singure imagini și apoi trecând la tehnici pentru redimensionarea mai multor imagini în mod eficient.

Redimensionați manual imaginile în Word

Redimensionați imaginile la dimensiuni specifice cu VBA

Redimensionați mai multe imagini simultan cu Kutools pentru Word


Redimensionați manual imaginile în Word

1. Pentru a afișa mânerele de dimensionare ale imaginii făcând clic pe imagine;

2. Puneți cursorul pe unul dintre mânerele de dimensionare ale imaginii.

3. Trageți mânerul de dimensionare până când dimensiunea imaginii este potrivită pentru nevoile dvs. Vedeți captura de ecran:

doc ajustați imaginile 1

notițe: Cu această metodă, nu puteți redimensiona mai multe imagini simultan. Trebuie să le redimensionați unul câte unul până când toate imaginile sunt redimensionate.


Redimensionați imaginile la dimensiuni specifice cu VBA

Cu următorul cod VBA, puteți redimensiona imaginile la dimensiunea ideală. Puteți face acest lucru după cum urmează :

În acest exemplu, redimensionăm dimensiunea imaginii la 1.78 inci înălțime și 3.17 inci lățime.

1. Vă rugăm să selectați o imagine pe care doriți să o modificați;

2. presa Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră;

3. Clic Module din Insera filă, copiați și lipiți următorul cod VBA în Module fereastră;

Cod VBA: redimensionați o imagine la dimensiunea specifică:

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. Clic Alerga butonul sau F5 pentru a rula codul VBA, iar imaginea selectată a fost redimensionată la dimensiunea necesară.

notițe: În codul de mai sus,  În shp.Height = InchesToPoints (1.78) și shp.Width = InchesToPoints (3.17) sunt înălțimea și lățimea imaginii, puteți modifica dimensiunea pentru a vă satisface nevoile.

Cu acest cod VBA, nu puteți redimensiona toate sau mai multe imagini simultan. Trebuie să mergeți înainte și înapoi între documentul Word și Microsoft Visual Basic pentru aplicații fereastra pentru a selecta imaginea și a aplica codul. E prea mult timp.


Redimensionați imaginile cu Kutools pentru Word

cu Kutools pentru Word 's Redimensionați imaginile utilitar, puteți scăpa de acele operații enervante și consumatoare de timp și puteți redimensiona rapid toate imaginile din documentul dvs.

Kutools pentru Cuvânt, echipat cu AI 🤖, oferă peste 100 de funcții utile pentru a vă simplifica sarcinile.

1. Vă rugăm să aplicați acest utilitar făcând clic pe Kutools Plus > Redimensionarea. Vedeți captura de ecran:

2. Dacă doriți să redimensionați toate imaginile la un anumit procent din dimensiunea lor originală, vă rugăm să selectați unul dintre cele șase procente din lista derulantă. De exemplu, dacă doriți să redimensionați toate imaginile la 50% din dimensiunea lor originală, vă rugăm să selectați 50%. După ce faceți clic 50%, veți vedea că toate imaginile au fost dimensionate la 50%. Vedeți captura de ecran:

doc ajustați imaginile 3

Dacă doriți să ajustați toate imaginile la aceeași dimensiune cu una selectată, vă rugăm să selectați o imagine ca dimensiune a modelului, apoi faceți clic Kutools Plus > Redimensionarea > Redimensionați imaginile cu selecție, iar toate imaginile vor fi redimensionate la aceeași dimensiune în funcție de cea selectată, vezi captura de ecran:

doc ajustați imaginile 4

Pentru informații mai detaliate despre Kutools pentru Cuvânt'S Redimensionați imaginile utilitar, vă rugăm să faceți clic pe aici.

Faceți clic pentru a descărca Kutools pentru Word și pentru a începe încercarea gratuită acum!


Demo: redimensionați toate imaginile simultan în Word

Descopera Kutools / Kutools Plus filă în acest videoclip de la Kutools pentru Cuvânt. Bucurați-vă de peste 100 de funcții și de utilități AI gratuite permanent. Descarcă acum!


Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Obțineți răspunsuri rapide, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie Pagini specifice  /  Mese  /  Forme  /  Paragrafe de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație  /  Inserarea automată a textului repetitiv  /  Comutați între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word astăzi și experimentați diferența! 🚀
 
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations