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

 Ինչպե՞ս 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, բարև
Ես Սոդան եմ, ես այստեղ եմ դա ասելու համար, ես իսկապես շատ բան եմ սովորում ձեր կայքի և ձեր տված տեղեկատվության հետ:
Շնորհակալություն դրա համար :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն օգնության համար ... շատ հետաքրքիր է ... մեծ աշխատանք ... հաջողություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/raporto? պիքսել? սմ?
GRAZIE!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Գրասելի
Միավորի չափը լճակ է վերը նշված VBA կոդում:
Thank you!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր