Բաց թողնել հիմնական բովանդակությունը

 Ինչպե՞ս Word փաստաթղթում տեղադրել նույն չափի բազմաթիվ նկարներ:

Սովորաբար, դուք կարող եք միանգամից բազմաթիվ պատկերներ տեղադրել Word փաստաթղթում ՝ իրենց սկզբնական չափսերով: Երբեմն տեղադրելը անհրաժեշտ է այս պատկերները դասավորել նույն չափի: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես Word- ի փաստաթղթում տեղադրել նույն չափի բազմաթիվ նկարներ:

Տեղադրեք նույն չափի բազմաթիվ նկարներ Word փաստաթղթում ՝ VBA կոդով

Վերափոխեք բոլոր նկարները նույն չափի ՝ հիմնվելով Kutools- ի համար նախատեսված հատուկ պատկերի վրա


Տեղադրեք նույն չափի բազմաթիվ նկարներ Word փաստաթղթում ՝ VBA կոդով

Հետևյալ vba կոդը կարող է օգնել ձեզ մի քանի նկարներ տեղադրել և միանգամից չափափոխել ձեր նշված չափի, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Տեղադրեք միևնույն չափի բազմաթիվ նկարներ.

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, Եվ հետո, սեղմեք F5 այս կոդը գործարկելու բանալին, ա Թերթել ցուցադրվում է պատուհանը, խնդրում ենք ընտրեք այն թղթապանակը, որը պարունակում է այն պատկերները, որոնք ցանկանում եք տեղադրել, տեսեք,

doc ներդիր պատկերներ նույն չափի 1-ով

4. Այնուհետեւ կտտացրեք OK կոճակը, և հուշման տուփը դուրս է գալիս `հիշեցնելու համար, եթե ցանկանում եք նկարները չափափոխել, տեսեք,

doc ներդիր պատկերներ նույն չափի 2-ով

5: Սեղմեք այո, և մուտքագրեք բարձրության և լայնության չափի համարները, որոնք ստորակետով բաժանված են տեքստի տուփի մեջ, տես նկարի նկարը.

doc ներդիր պատկերներ նույն չափի 3-ով

6. Եվ այնուհետեւ կտտացրեք OK, տեղադրված բոլոր պատկերները վերադասավորվել են նույն չափի, տե՛ս նկարը.

doc ներդիր պատկերներ նույն չափի 4-ով

Նշումմիավորի չափը լճակն է VBA կոդում:


Վերափոխեք բոլոր նկարները նույն չափի ՝ հիմնվելով Kutools- ի համար նախատեսված հատուկ պատկերի վրա

Եթե ​​ձեր Word փաստաթղթում առկա են բազմաթիվ նկարներ, հետ Kutools բառի համար'S Պատկերները չափափոխել օգտակար, դուք կարող եք արագ չափափոխել բոլոր պատկերները նույնը, ինչ որ նկարը:

Kutools բառի համար : ավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք. 

Տեղադրելուց հետո Kutools բառի համարԽնդրում եմ արեք հետևյալ կերպ

1, Մեկ նկարը հարմարեցրեք ձեր ուզած չափին և ընտրեք այն, ապա կտտացրեք Kutools Plus > Փոփոխել > Պատկերները չափափոխեք ընտրությամբ, տես նկարի նկարը.

2, Եվ այս բառի փաստաթղթի բոլոր պատկերները չափափոխվել են նույնը, ինչ ընտրվածն անմիջապես, տես նկարի նկարը.

Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

Սուզվեք ստորև նշված ընդգծված հատկանիշների մեջ կամ սեղմեք այստեղ՝ ուսումնասիրելու Kutools-ի ամբողջական հզորությունը Word-ի համար.

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/XLSX)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք ...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով   /  Չափափոխել բոլոր նկարները   /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել ...

🧹 Անհեշտ մաքրությունՀեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /   Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  /  Հեռացման լրացուցիչ գործիքների համար այցելեք մեր Հեռացնել խումբը

Ստեղծագործական ներդիրներ: Տեղադրել Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  /  Բացահայտեք ավելին մեր Insert Group-ում

🔍 Ճշգրիտ ընտրանքներ: Նշեք կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  /  Հեշտությամբ նավարկեք՝ օգտագործելով մեր Ընտրել խումբը

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ ...

Փոխակերպեք ձեր Word-ի առաջադրանքները Kutools-ով: 👉 Ներբեռնեք հիմա 30-օրյա փորձաշրջանով 🚀.

 
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