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

Hur ändrar jag storlek på alla / flera bilder i Word?

När vi kopierar eller importerar bilder från Internet eller andra filer kan storleken på bilderna vara olika. Alla vet hur man ändrar storleken på bilderna en efter en, men om vi vill ändra storlek på dem i samma storlek samtidigt, hur kan vi göra det? Denna handledning visar dig flera metoder för att ändra storlek på bilder.

Ändra storlek på bilder manuellt i Word

Ändra storlek på bilder med VBA

Ändra storlek på flera bilder samtidigt med Kutools for Word


Ändra storlek på bilder manuellt i Word

1. För att visa bildens storlekshandtag genom att klicka på bilden;

2. Placera markören på ett av bildens storlekshandtag.

3. Dra dimensioneringshandtaget tills bildstorleken passar dina behov. Se skärmdump:

doc justera bilder 1

Anmärkningar: Med den här metoden kan du inte ändra storlek på flera bilder samtidigt. Du måste ändra storlek på dem en efter en tills alla bilder ändras.


Ändra storlek på bilder med VBA

Med följande VBA-kod kan du ändra storlek på bilder till din ideala storlek. Du kan få det gjort enligt följande :

I det här exemplet ändrar vi storlek på bilden till 1.78 tum höjd och 3.17 tum bredd.

1. Välj en bild du vill ändra storlek;

2. Tryck Alt + F11 att öppna Microsoft Visual Basic för applikationer fönster;

3. Klicka Modulerna från Insert fliken, kopiera och klistra in följande VBA-kod i Modulerna fönster;

VBA-kod: Ändra storlek på en bild till en viss storlek:

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. Klicka Körning knapp eller F5 för att köra VBA-koden och den valda bilden har ändrats till din behovsstorlek.

Anmärkningar: I ovanstående kod,  I shp.Height = InchesToPoints (1.78) och shp.Width = InchesToPoints (3.17) är höjd och bredd på bilden kan du ändra storlek för att tillgodose dina behov.

Med denna VBA-kod kan du inte heller ändra storlek på hela eller flera bilder samtidigt. Du måste gå fram och tillbaka mellan Word-dokumentet och Microsoft Visual Basic för applikationer för att välja bilden och tillämpa koden. Det är för tidskrävande.


Ändra storlek på bilder med Kutools for Word

Med Kutools for Word's Ändra storlek på bilder verktyget kan du bli av med de irriterande och tidskrävande åtgärderna och snabbt ändra storlek på alla bilder från ditt dokument.

Kutools for Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. 

1. Använd detta verktyg genom att klicka Kutools Plus > Ändra storlek. Se skärmdump:

2. Om du vill ändra storlek på alla bilder till en viss procentandel av deras ursprungliga storlek, välj en av de sex procentenheterna i listrutan. Till exempel, om du vill ändra storlek på alla bilder till 50% av deras ursprungliga storlek 50%. Efter att ha klickat 25%, kommer du att se att alla bilder har fått en storlek på 50%. Se skärmdump:

doc justera bilder 3

Om du vill justera alla bilder till samma storlek med en vald bild, välj en bild som modellstorlek och klicka sedan på Kutools Plus > Ändra storlek > Ändra storlek på bilder med markering, och alla bilder kommer att ändras i samma storlek baserat på den valda, se skärmdump:

doc justera bilder 4

För mer detaljerad information om Kutools for WordÄr Ändra storlek på bilder verktyg, klicka här.

Klicka för att ladda ner Kutools for Word och gratis provperiod nu!


Demo: Ändra storlek på alla bilder samtidigt i Word

Kutools for Word: med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. Ladda ner och testa gratis nu!


Rekommenderade Word-produktivitetsverktyg

 

Kutools For Word - Mer än 100 avancerade funktioner för Word, spara 50 % tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (7)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
spara dina pengar och kör detta makro: Tack till Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 Till .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Avsluta Sub
Denna kommentar minimerades av moderatoren på webbplatsen
spara dina pengar och kör det här makrot: Tack till Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 Till .InlineShapes.Räkna med .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End Med End Sub Excellent!!! Du sparade mina pengar och min tid. Tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
Var lägger jag den här koden?
Denna kommentar minimerades av moderatoren på webbplatsen
Är det någon som vet om en bildplatshållare/dropper/automatisk storleksfunktion är tillgänglig i Windows 365? Ingen aning om var man kan leta eller hitta hjälp med detta eftersom Microsofts chatthjälp var SÅ ohjälpsam. Alla tips skulle vara mycket uppskattade.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag behöver ändra storlek på alla bilder i ett word-dokument till samma bredd men inte deformera bilderna. så skala dem till samma bredd. Är detta möjligt genom ett makro?
Denna kommentar minimerades av moderatoren på webbplatsen
Om du sparar ditt dokument som .docx kommer du att kunna öppna det som zip-arkiv. Det kommer att finnas mediamapp med alla bilder (min hade PNG-bilder). Du kan sedan använda program som IrfanView, XnViewMP, FastStone Viewer för att utföra batchtransformationer som att ändra storlek, minska färgdjupet, etc. Packa tillbaka dina bilder i zip och byt namn på dem till docx. Till exempel, i min docx full av skärmdumpar behövde jag minska antalet färger till 8, vilket är tillräckligt för dokumentationsändamål. Efter bearbetning blev mitt 10MB-dokument 1.8MB-dokument, så besparingarna kan bli betydande. Spara alltid din ursprungliga docx om du vill återställa bilder efter för mycket nedbrytning/bearbetning etc.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag slösade bort en bra 3 timmar eller mer på att försöka få dessa VBA-makron att fungera. Gav upp och provade Kutools som fungerar utmärkt! Köpte den direkt eftersom den är väl värd $49!
Det finns inga kommentarer här ännu

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL