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

 Hur infogar jag flera bilder med samma storlek i Word-dokument?

Normalt kan du infoga flera bilder samtidigt i ett Word-dokument med deras originalstorlek. Ibland måste du ordna dessa bilder i samma storlek när du sätter in dem. Den här artikeln kommer jag att prata om hur man infogar flera bilder med samma storlek i ett Word-dokument.

Infoga flera bilder med samma storlek i Word-dokument med VBA-kod

Ändra storlek på alla bilder till samma storlek baserat på en viss bild med Kutools for Word


Infoga flera bilder med samma storlek i Word-dokument med VBA-kod

Följande vba-kod kan hjälpa dig att infoga flera bilder och ändra storlek på dem till din specificerade storlek på en gång, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: infoga flera bilder med samma storlek:

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. Och tryck sedan på F5 nyckel för att köra den här koden, a Bläddra fönstret visas, välj den mapp som innehåller bilderna du vill infoga, se skärmdump:

doc infoga bilder med samma storlek 1

4. Klicka sedan OK knappen, och en promptf-ruta dyker upp för att påminna dig om du vill ändra storlek på bilderna, se skärmdump:

doc infoga bilder med samma storlek 2

5. Klicka Ja, och skriv in storleken på höjd och bredd som skiljs åt med kommatecken i textrutan, se skärmdump:

doc infoga bilder med samma storlek 3

6. Och klicka sedan på OK, alla infogade bilder har ordnats om i samma storlek, se skärmdump:

doc infoga bilder med samma storlek 4

Anmärkningar: enhetsstorleken är damm i VBA-kod.


Ändra storlek på alla bilder till samma storlek baserat på en viss bild med Kutools for Word

Om det finns flera bilder i ditt Word-dokument, med Kutools för WordÄr Ändra storlek på bilder verktyget kan du snabbt ändra storlek på alla bilder på samma sätt som den specifika.

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

När du har installerat Kutools för Word, gör så här:

1. Justera en bild till önskad storlek och välj den och klicka sedan på Kutools Plus > Ändra storlek > Ändra storlek på bilder med markering, se skärmdump:

2. Och alla bilder i detta orddokument har storleksändrats på samma sätt som den markerade omedelbart, se skärmdump:

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


Rekommenderade Word-produktivitetsverktyg

 

Kutools för 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 (2)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej hej
Jag heter Soda, jag är här för att säga det, jag lär mig verkligen mycket med din hemsida och information som du ger.
Tack för det :)
Läskedryck
Denna kommentar minimerades av moderatoren på webbplatsen
tack för hjälpen ... det är väldigt intressant ... stort jobb ... lycka till
hicham sergini
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser