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

 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

Az összes kép átméretezése azonos méretűre egy adott kép alapján a Kutools for Word alkalmazással


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.


Az összes kép átméretezése azonos méretűre egy adott kép alapján a Kutools for Word alkalmazással

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 és az ingyenes próbaverzió letöltéséhez!


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (4)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Hello
Soda vagyok, azért vagyok itt, hogy ezt elmondjam, nagyon sokat tanulok a webhelyedből és az általad adott információkból.
Köszönet érte :)
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm a segítséget ... nagyon érdekes ... nagy munka ... sok sikert
A weboldal moderátora ezt a megjegyzést minimalizálta
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA a dimenziók dimenzióinak/kicsinyítésének kritériumaival? Percentuale/rapporto? pixel? cm?
GRAZIE!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Grasselli
Az egység mérete tó a fenti VBA kódban.
Köszönöm!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi