Ugrás a tartalomra

 Hogyan illesszünk be több, azonos méretű képet a Word dokumentumba?

Normál esetben egyszerre több képet is beilleszthet az eredeti méretû Word-dokumentumba. Előfordulhat, hogy ezeket a képeket azonos méretűre kell rendezni a beszúráskor. Ebben a cikkben arról fogok beszélni, hogyan lehet több azonos méretű képet beilleszteni egy Word dokumentumba.

Helyezzen be több, ugyanolyan méretű képet a VBA kóddal rendelkező Word dokumentumba

Méretezze át az összes képet azonos méretűre egy adott kép alapján a Kutools for Word segítségével


Helyezzen be több, ugyanolyan méretű képet a VBA kóddal rendelkező Word dokumentumba

A következő vba-kód segíthet több kép beillesztésében és egyszerre a megadott méretre történő átméretezésében, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA kód: több, azonos méretű kép beszúrása:

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. És akkor nyomja meg F5 kulcs a kód futtatásához, a Tallózás ablak jelenik meg, válassza ki a mappát, amely tartalmazza a beilleszteni kívánt képeket, lásd a képernyőképet:

doc helyezzen be azonos méretű képeket 1

4. Ezután kattintson OK gombra, és megjelenik egy promptf mező, amely emlékezteti Önt, ha át szeretné méretezni a képeket, lásd a képernyőképet:

doc helyezzen be azonos méretű képeket 2

5. Kattints Igen, és írja be a vesszővel elválasztott magasság és szélesség méretszámát a szövegmezőbe, lásd a képernyőképet:

doc helyezzen be azonos méretű képeket 3

6. Kattintson a gombra OK, az összes beillesztett kép azonos méretűre rendeződött, lásd a képernyőképet:

doc helyezzen be azonos méretű képeket 4

Megjegyzések: az egység mérete tó VBA kódban.


Méretezze át az összes képet azonos méretűre egy adott kép alapján a Kutools for Word segítségével

Ha több kép is létezik a Word dokumentumban, akkor a Kutools for Word'S Képek átméretezése segédprogram segítségével gyorsan átméretezheti az összes képet ugyanúgy, mint az adott képet.

Kutools for Word : több mint 100 praktikus Word-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. 

Telepítése után Kutools for Word, kérjük, tegye a következőket:

1. Állítson be egy képet a kívánt méretre, majd válassza ki, majd kattintson a gombra Kutools Plus > Átméretezése > Képek átméretezése a kiválasztással, lásd a képernyőképet:

2. A szó dokumentumban szereplő összes kép átméretezése megegyezik a kiválasztott képével, lásd a képernyőképet:

Kattintson a Kutools for Word letöltéséhez és az ingyenes próbaverzióhoz most!

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása  /  Szöveg átírása  /  Összefoglalja a dokumentumokat  /  Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között  /  Minden kép átméretezése  /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé...

🧹 Könnyed tisztítás: Söpörj el Extra helyek  /  Szakaszszünetek  /  Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...

Kreatív betétek: Beszúrás Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  / Fedezzen fel többet a Csoport beszúrása...

???? Precíziós kiválasztás: Pontosan konkrét oldalak  /  asztalok  /  formák  /  címsor bekezdései  / A navigáció javítása a következővel: több Jelölje ki a funkciókat...

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök...

???? Ki szeretné próbálni ezeket a funkciókat? A Kutools for Word kínál a 60 napos ingyenes próba, korlátozások nélkül! 🚀
 
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