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:
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:
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:
6. Kattintson a gombra OK, az összes beillesztett kép azonos méretűre rendeződött, lásd a képernyőképet:
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...