Preskoči na glavno vsebino

 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:

doc vstavi slike enake velikosti 1

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

doc vstavi slike enake velikosti 2

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

doc vstavi slike enake velikosti 3

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

doc vstavi slike enake velikosti 4

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.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. 

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!

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

Poglobite se v spodaj poudarjene funkcije oz kliknite tukaj, če želite raziskati celotno moč Kutools for Word.

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/XLSX)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati ...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek   /  Spremeni velikost vseh slik   /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo ...

🧹 Čiščenje brez naporaPometite stran Dodatni prostori  /  Prelomi oddelkov  /   Vse glave  /  Besedilna polja  /  Hiperpovezave  /  Za več orodij za odstranjevanje pojdite v našo skupino za odstranjevanje

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  /  Odkrijte več v naši skupini za vstavljanje

???? Natančne izbire: Natančno določite določene strani  /  mize  /  Oblike  /  odstavki naslova  /  Z lahkoto krmarite z našo Select Group

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo ...

Preoblikujte svoje Wordove naloge s Kutools. 👉 Prenesite s 30-dnevnim preizkusom zdaj 🚀.

 
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