I denne artikkelen vil vi vise deg hvordan du raskt kan endre størrelsen på flere bilder i Word-dokumentet for å oppfylle visse krav.
Det er ikke uvanlig å ha mange bilder satt inn i et Word-dokument i dag. Men noen ganger bør disse bildene settes i samme størrelse. Og normalt sett er bildet som er satt inn i "I tråd med tekst", som betyr at vi ikke kan velge dem alle samtidig. Å justere bildestørrelsen kan derfor være tidkrevende selv når det bare er flere av dem.
Følgende er 2 raske måter du kan finne nyttige.
Metode 1: Bruk "F4"
- Først og fremstost, dobbeltklikk på et bilde for å gå inn i redigeringsmodus.
- For det andre, klikk på pil ned-knappen i "Størrelse"-gruppen under "Format"-fanen for å åpne "layout"-dialogboksen.
- I den åpne dialogboksen endrer du høyden og bredden etter behov først.
- Fjern deretter boksene "Lås aspektforhold" og "Relativ til original bildestørrelse" i "Skala"-delen.
- Til slutt, klikk "OK".
- Klikk deretter på et annet bilde og trykk "F4". Du vil finne at det andre bildet nå er i samme størrelse som det forrige. "F4" her kan gjenta den siste handlingen.
Metode 2: Bruk VBA-koder
Generelt sett kan metode 1 allerede spare deg for mye tid. Men i tilfelle du synes det er kjedelig og kjedelig å klikke på bildet og trykke "F4"-tasten, kan du ta hjelp av VBA-koder for å fullføre oppgaven en gang for alle.
- Til start med, klikk på "Utvikler"-fanen.
- Klikk deretter "Visual Basic" i "Code"-gruppen eller trykk "Alt+ F11" for å åpne VBA-editoren.
- Klikk deretter på "Normal".
- Klikk "Sett inn".
- Og velg "Modul".
- Dobbeltklikk deretter på den nye modulen for å åpne redigeringsområdet.
- Lim inn kodene nedenfor der:
Sub SetupAllPictureSize() Dim objInlineShape As InlineShape Dim objShape As Shape For Every objInlineShape In ActiveDocument.InlineShapes objInlineShape.Height = 500 objInlineShape.Width = 500 Neste objInlineShape objInlineShape I Every ActiveShape objShape objInlineShape I Every ActiveShape objShape. 500 objShape.Width = 500 Neste objShape End Sub
- Til slutt trykker du på "Kjør"-knappen.
Merknader:
- Du kan endre verdiene i kodene "objInlineShape.Height = 500" og "objInlineShape.Width = 500" ettersom du må endre høyden og bredden på bildene i innpakningsstilen "I tråd med tekst".
- Du kan endre verdiene i kodene "objShape.Height = 500" og "objShape.Width = 500" for å endre høyden og bredden på bilder som ikke er i innpakningsstilen "I tråd med tekst".
Håndtere dokumentproblemer
Et Word-dokument som inneholder for mange bilder kan ikke bare senke behandlingshastigheten, men også forårsake dokumentkorrupsjon. En måte er å unngå å sette inn for mange bilder i en Word-fil, slik at du ikke vil støte på et slikt problem. Den andre måten er imidlertid å få en docx problemløsningsverktøy på forhånd, slik at du ikke trenger å bekymre deg for å miste viktig fil.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xlsx datafeil reparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med
Er det mulig å stille inn bare bredden, f.eks. 510, men hold låseforholdet med høyden?
1
Jeg er virkelig inspirert sammen med dine skrivetalenter og strukturen på bloggen din. Er dette et betalt emne eller tilpasset du det selv? Uansett hold opp med den fine kvaliteten på skrivingen, det er uvanlig å kikke på en flott weblogg som denne i dag..
Hei, hele tiden pleide jeg å sjekke nettsiden soster her tidlig om morgenen, siden jeg liker å få kunnskap om mer og mer.
o.web20.tjenester
Problemet mitt var da jeg limte inn større elementer, det gikk av siden. Så jeg hinket sammen denne koden.
Sub WidthPictures2fit()
Dim jeg så lenge
Med ActiveDocument
For i = 1 til .InlineShapes.Count
Med .InlineShapes(i)
Hvis .Bredde > 520 Da
.Bredde = 519
End If
Slutt med
Neste jeg
Slutt med
End Sub
Hvis det er mer enn 520 bredt, reduserer det bredden til 519. Som er omtrent bredden til et vanlig Word-dokument. Du kan justere 520 etter behov.
Takk for VBA-koden. Hvis noen ønsker å bruke skalabredde eller høyde, kan følgende parametere brukes i koden (80%):
For hver iShp i .InlineShapes
Med iShp
Hvis .Type = wdInlineShapePicture Eller wdInlineShapeLinkedPicture
.ScaleWidth = 80
.ScaleHeight = 80
End If
Slutt med
Neste iShp
Flott triks med VBA ... bare nevner at dimensjoner er i "punkter" ... bruk google for å konvertere til tommer eller millimeter
F4-kommandoen ser ikke ut til å fungere på en Mac (eller Cmd Y). F4 ser ut til å være en global kommando ved at den gjentar den siste handlingen du gjorde uavhengig av programmet du er i; Hvis du f.eks. limte inn et søkeord i nettleseren din for en stund tilbake, vil det lime inn teksten i Word (men ikke den umiddelbart foregående kommandoen for endring av størrelse). Har ikke funnet en vei rundt dette.