Gå til hovedindhold

Hvordan ændres størrelsen på alle / flere billeder i Word?

Når vi kopierer eller importerer billeder fra internettet eller andre filer, kan størrelsen på billederne være forskellig. Alle ved, hvordan man ændrer størrelse på billeder en efter en, men hvis vi vil ændre størrelsen på dem i samme størrelse på én gang, hvordan kan vi gøre det? Denne vejledning viser dig flere metoder til at ændre størrelse på billeder.

Ændr størrelsen på billeder manuelt i Word

Ændr størrelsen på billeder med VBA

Ændr størrelsen på flere billeder på én gang med Kutools til Word


Ændr størrelsen på billeder manuelt i Word

1. For at vise billedets størrelsehåndtag ved at klikke på billedet;

2. Sæt markøren på et af billedets størrelsesgreb.

3. Træk i størrelseshåndtaget, indtil billedstørrelsen passer til dine behov. Se skærmbillede:

doc justere billeder 1

Bemærk: Med denne metode kan du ikke ændre størrelsen på flere billeder på én gang. Du skal ændre størrelsen på dem en efter en, indtil størrelsen på alle billeder ændres.


Ændr størrelsen på billeder med VBA

Med følgende VBA-kode kan du ændre størrelsen på billederne til din ideelle størrelse. Du kan få det gjort som følger :

I dette eksempel ændrer vi størrelsen på billedstørrelsen til 1.78 tommer højde og 3.17 tommer bredde.

1. Vælg et billede, du vil ændre størrelsen;

2. Trykke Alt + F11 at åbne Microsoft Visual Basic til applikationer vindue;

3. Klik Moduler fra indsatte fanen, kopier og indsæt følgende VBA-kode i Moduler vindue;

VBA-kode: Ændr størrelsen på et billede til en bestemt størrelse:

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 Kør knappen eller F5 for at køre VBA-koden, og det valgte billede er blevet ændret til din behovsstørrelse.

Bemærk: I ovenstående kode,  I shp.Height = InchesToPoints (1.78) , shp.Width = InchesToPoints (3.17) er billedets højde og bredde, kan du ændre størrelsen for at imødekomme dit behov.

Med denne VBA-kode kan du heller ikke ændre størrelsen på hele eller flere billeder på én gang. Du skal gå frem og tilbage mellem Word-dokumentet og Microsoft Visual Basic til applikationer vindue for at vælge billedet og anvende koden. Det er for tidskrævende.


Ændr størrelsen på billeder med Kutools til Word

Med Kutools til Word 's Ændre størrelse på billeder værktøj, kan du slippe af med de irriterende og tidskrævende operationer og hurtigt ændre størrelsen på alle billeder fra dit dokument.

Kutools for Word : med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. 

1. Anvend dette værktøj ved at klikke på Kutools Plus > Resize. Se skærmbillede:

2. Hvis du vil ændre størrelsen på alle billeder til en bestemt procentdel af deres oprindelige størrelse, skal du vælge en af ​​de seks procent på rullelisten. Hvis du f.eks. Vil ændre størrelsen på alle billederne til 50% af deres oprindelige størrelse, skal du vælge 50 %. Efter at have klikket 25 %, vil du se, at alle billeder er blevet dimensioneret til 50%. Se skærmbillede:

doc justere billeder 3

Hvis du vil justere alle billeder til samme størrelse med en valgt, skal du vælge et billede som modelstørrelse og derefter klikke på Kutools Plus > Resize > Ændr størrelse på billeder med markering, og alle billeder bliver ændret i samme størrelse baseret på den valgte, se skærmbillede:

doc justere billeder 4

For mere detaljeret information om Kutools for Word's Ændre størrelse på billeder værktøj, skal du klikke her.

Klik for at downloade Kutools til Word og gratis prøveversion nu!


Demo: Ændr størrelsen på alle billeder på én gang i Word

Kutools for Word: med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang ...

Indholdsredigering: Batch Find og erstat på tværs af flere filer   /  Ændr størrelse på alle billeder   /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst ...

🧹 Ubesværet rengøringFej væk Ekstra pladser  /  Afsnit bryder  /   Alle overskrifter  /  Tekstbokse  /  Hyperlinks  /  For flere fjernelsesværktøjer, gå til vores Fjerngruppe

Kreative indlæg: indsatte Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  /  Opdag mere i vores Indsæt-gruppe

???? Præcisionsvalg: Find bestemte sider  /  tabeller  /  former  /  overskrifter  /  Naviger nemt ved hjælp af vores udvalgte gruppe

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer ...

Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.

Læs mere       Gratis download      Køb
 
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