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

 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!


Anbefalede Word-produktivitetsværktøjer

 

Kutools til Word - Mere end 100 avancerede funktioner til Word, spar din 50% tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Sorter kommentarer efter
Kommentarer (2)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej hallo
Jeg er Sodavand, jeg er her for at sige, at jeg lærer virkelig meget med din hjemmeside og information, som du giver.
Tak for det :)
Sodavand
Denne kommentar blev minimeret af moderatoren på webstedet
tak for hjælpen ... det er meget interessant ... stort arbejde ... held og lykke
hicham sergini
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder