Note: The other languages of the website are Google-translated. Back to English

Kako spremeniti velikost vseh / več slik v Wordu?

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!


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
prihranite denar in zaženite ta makro: Credit Dave Sub resizeimages() Dim i As Long With ActiveDocument Za i = 1 Do .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 Konec z naslednjim i End With Končni sub
Ta komentar je moderator na spletnem mestu minimiziral
prihranite denar in zaženite ta makro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument Za i = 1 Do .InlineShapes.C count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 Konec z naslednjim i End S končnim sub Odlično!!! Prihranil si moj denar in moj čas. Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Kam dam to kodo?
Ta komentar je moderator na spletnem mestu minimiziral
Ali kdo ve, ali je funkcija za shranjevanje slike/kapalka/samodejno določanje velikosti na voljo v sistemu Windows 365? Nimam pojma, kje iskati ali najti pomoč glede tega, saj je bila pomoč za klepet pri Microsoftu TAKO neuporabna. Vsak nasvet bi bil zelo hvaležen.
Ta komentar je moderator na spletnem mestu minimiziral
Velikost vseh slik v word dokumentu moram spremeniti na enako širino, vendar ne deformirati slik. zato jih prilagodite na enako širino. Ali je to mogoče prek makra?
Ta komentar je moderator na spletnem mestu minimiziral
Če shranite dokument kot .docx, ga boste lahko odprli kot zip-arhiv. Tam bo medijska mapa z vsemi slikami (moja je imela slike PNG). Nato lahko uporabite programe, kot so IrfanView, XnViewMP, FastStone Viewer, da izvedete paketne transformacije, kot so spreminjanje velikosti, zmanjšanje globine barve itd. Zapakirajte slike nazaj v zip in jih preimenujte v docx. Na primer, v mojem dokumentu, polnem posnetkov zaslona, ​​sem moral zmanjšati število barv na 8, kar je dovolj za namene dokumentacije. Po obdelavi je moj 10MB dokument postal 1.8MB dokument, tako da so lahko prihranki znatni. Vedno shranite svoj izvirni docx, če želite obnoviti slike po preveliki degradaciji/obdelavi itd.
Ta komentar je moderator na spletnem mestu minimiziral
Zapravil sem dobre 3 ure ali več, ko sem poskušal spraviti te makre VBA v delo. Obupal in preizkusil Kutools, ki deluje odlično! Kupil sem ga takoj, saj je vreden 49 $!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL