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!

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 (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