Preskoči na glavno vsebino

Kako spremeniti velikost vseh / več slik v Wordu?

Avtor: Sonce Zadnja sprememba: 2020-05-29

Ko kopiramo ali uvozimo slike iz interneta ali drugih datotek, je njihova velikost lahko različna. Vsi vedo, kako spremeniti velikost slik eno za drugo, če pa jih želimo hkrati spremeniti na enako velikost, kako lahko to storimo? Ta vadnica vam bo pokazala več načinov spreminjanja velikosti slik.

Ročno spremenite velikost slik v Wordu

Spremenite velikost slik z VBA

Spremenite velikost več slik naenkrat s programom Kutools for Word


Ročno spremenite velikost slik v Wordu

1. Za prikaz ročic za določanje velikosti slike s klikom na sliko;

2. Postavite kazalko na enega od ročic za določanje velikosti slike.

3. Povlecite ročico za določanje velikosti, dokler velikost slike ne ustreza vašim potrebam. Oglejte si posnetek zaslona:

doc prilagodi slike 1

Opombe: S to metodo ne morete hkrati spremeniti velikosti več slik. Velikost jih morate spreminjati eno za drugo, dokler ne spremenite velikosti vseh slik.


Spremenite velikost slik z VBA

Z naslednjo kodo VBA lahko slike spremenite na svojo idealno velikost. To lahko storite na naslednji način:

V tem primeru velikost slike spremenimo na 1.78 palca višine in 3.17 palca širine.

1. Izberite sliko, za katero želite spremeniti velikost;

2. Pritisnite Alt + F11 da odprete Microsoft Visual Basic za aplikacije okno;

3. Kliknite Moduli iz Vstavi , kopirajte in prilepite naslednjo kodo VBA v Moduli okno;

Koda VBA: Spremenite velikost ene slike na določeno velikost:

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. klik Run gumb ali F5 tipko za zagon kode VBA, izbrana slika pa je spremenjena na vašo velikost.

Opombe: V zgornji kodi,  V shp.Height = InchesToPoints (1.78) in shp.Width = InchesToPoints (3.17) sta višina in širina slike, lahko spremenite velikost, da ustreza vašim potrebam.

S to kodo VBA tudi ne morete hkrati spremeniti velikosti celotne slike ali več slik. Med Wordovim dokumentom in Microsoft Visual Basic za aplikacije okno, da izberete sliko in uporabite kodo. To je preveč dolgotrajno.


Spremenite velikost slik s programom Kutools for Word

z Kutools za besedo 's Spreminjanje velikosti slik pripomočka se lahko znebite nadležnih in zamudnih operacij ter hitro spremenite velikost vseh slik iz dokumenta.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. 

1. Uporabite to orodje s klikom Kutools Plus > Resize. Oglejte si posnetek zaslona:

2. Če želite spremeniti velikost vseh slik na določen odstotek prvotne velikosti, izberite enega od šestih odstotkov na spustnem seznamu. Če želite na primer vse slike spremeniti na 50% prvotne velikosti, izberite 50%. Po kliku 25%, videli boste, da so bile vse slike velike do 50%. Oglejte si posnetek zaslona:

doc prilagodi slike 3

Če želite vse slike prilagoditi enaki velikosti z izbrano, izberite sliko kot velikost modela in kliknite Kutools Plus > Resize > Spreminjanje velikosti slik z izbiro, in vse slike bodo spremenjene v enaki velikosti glede na izbrano, glejte posnetek zaslona:

doc prilagodi slike 4

Za podrobnejše informacije o Kutools za WordJe Spreminjanje velikosti slik pripomoček, kliknite tukaj.

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!


Predstavitev: v Wordu spremenite velikost vseh slik hkrati

Kutools za Word: z več kot 100 priročnimi dodatki za Word, brezplačno preizkusite brez omejitev v 60 dneh. Prenesite in brezplačno preizkusite zdaj!

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀
 
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