Kako v Wordov dokument vstaviti več slik z enako velikostjo?

Običajno lahko v Wordov dokument v prvotno velikost vstavite več slik hkrati. Včasih morate te slike pri vstavljanju razporediti na enako velikost. V tem članku bom govoril o tem, kako v Wordov dokument vstaviti več slik z enako velikostjo.

V dokument Word vstavite več slik z enako velikostjo s kodo VBA

S Kutools for Word spremenite velikost vseh slik na enako velikost glede na določeno sliko

V dokument Word vstavite več slik z enako velikostjo s kodo VBA

Naslednja koda vba vam lahko pomaga vstaviti več slik in jih hkrati prilagoditi na določeno velikost, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: vstavite več slik z enako velikostjo:

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. In nato pritisnite F5 tipko za zagon te kode, a Brskanje okno se prikaže, izberite mapo, ki vsebuje slike, ki jih želite vstaviti, si oglejte posnetek zaslona:

4. Nato kliknite OK in izpiše se pozivno polje, ki vas opozori, če želite spremeniti velikost slik, glejte sliko zaslona:

5. Kliknite Dain v besedilno polje vnesite številke velikosti višine in širine, ki sta ločeni z vejico, glejte posnetek zaslona:

6. In nato kliknite OK, vse vstavljene slike so preurejene v enako velikost, glej posnetek zaslona:

Opombe: velikost enote je ribnik v kodi VBA.

S Kutools for Word spremenite velikost vseh slik na enako velikost glede na določeno sliko

Če v dokumentu Word obstaja več slik, z Kutools za WordJe Spreminjanje velikosti slik Pripomoček lahko hitro spremenite velikost vseh slik enako kot določeno.

Po namestitvi Kutools za Word, naredite tako:

1. Prilagodite eno sliko želeni velikosti in jo izberite, nato kliknite Kutools Plus > Resize > Spreminjanje velikosti slik z izbiro, glej posnetek zaslona:

2. In vse slike v tem besedilnem dokumentu so takoj spremenjene tako kot izbrane, glejte posnetek zaslona:

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!

---

Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

• Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
• V Wordov dokument hkrati vstavite več slik v mape.
• Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
• Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
• Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...

Preberi več Prenesi zdaj Nakup