Gå til hovedindhold

 Hvordan indsættes flere billeder med samme størrelse i Word-dokument?

Normalt kan du indsætte flere billeder på én gang i et Word-dokument med deres originale størrelse. Nogle gange skal du arrangere disse billeder i samme størrelse, når du indsætter dem. Denne artikel vil jeg tale om, hvordan man indsætter flere billeder med samme størrelse i et Word-dokument.

Indsæt flere billeder med samme størrelse i Word-dokument med VBA-kode

Ændr størrelsen på alle billeder i samme størrelse baseret på et specifikt billede med Kutools for Word


Indsæt flere billeder med samme størrelse i Word-dokument med VBA-kode

Den følgende vba-kode kan hjælpe dig med at indsætte flere billeder og ændre størrelsen på dem til din angivne størrelse på én gang. Gør som følger:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: indsæt flere billeder med samme størrelse:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. Og tryk derefter på F5 nøgle til at køre denne kode, a Gennemse vindue vises, skal du vælge den mappe, der indeholder de billeder, du vil indsætte, se skærmbillede:

doc indsæt billeder med samme størrelse 1

4. Klik derefter på OK knappen, og der vises en promptf-boks for at minde dig om, hvis du vil ændre størrelsen på billederne, se skærmbillede:

doc indsæt billeder med samme størrelse 2

5. Klik Ja, og skriv størrelsesnumrene på højden og bredden, der er adskilt med komma i tekstboksen, se skærmbillede:

doc indsæt billeder med samme størrelse 3

6. Og klik derefter på OK, alle de indsatte billeder er blevet omarrangeret til samme størrelse, se skærmbillede:

doc indsæt billeder med samme størrelse 4

Bemærk: Enhedsstørrelsen er dam i VBA-kode.


Ændr størrelsen på alle billeder i samme størrelse baseret på et specifikt billede med Kutools for Word

Hvis der findes flere billeder i dit Word-dokument, med Kutools for Word's Ændre størrelse på billeder hjælpeprogram, kan du hurtigt ændre størrelsen på alle billeder som det samme.

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

Efter installation Kutools for Wordskal du gøre som dette:

1. Juster et billede til den ønskede størrelse, og vælg det, og klik derefter på Kutools Plus > Resize > Ændr størrelse på billeder med markering, se skærmbillede:

2. Og alle billeder i dette orddokument er straks ændret til det samme som det valgte, se skærmbillede:

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

Bedste kontorproduktivitetsværktøjer

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

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  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øring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

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

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

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

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations