Sut i fewnosod lluniau lluosog gyda'r un maint yn nogfen Word?

Fel rheol, gallwch fewnosod sawl delwedd ar unwaith mewn dogfen Word gyda'u maint gwreiddiol. Weithiau, mae angen i chi drefnu'r delweddau hyn i'r un maint wrth eu mewnosod. Yr erthygl hon, byddaf yn siarad am sut i fewnosod lluniau lluosog gyda'r un maint mewn dogfen Word.

Mewnosodwch luniau lluosog gyda'r un maint yn nogfen Word gyda chod VBA

Newid maint pob llun i'r un maint yn seiliedig ar ddelwedd benodol gyda Kutools ar gyfer Word

Mewnosodwch luniau lluosog gyda'r un maint yn nogfen Word gyda chod VBA

Gall y cod vba canlynol eich helpu i fewnosod sawl llun a'u hailfeintio i'ch maint penodol ar unwaith, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: mewnosodwch luniau lluosog gyda'r un maint:

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. Ac yna, pwyswch F5 allwedd i redeg y cod hwn, a Pori ffenestr yn cael ei harddangos, dewiswch y ffolder sy'n cynnwys y delweddau rydych chi am eu mewnosod, gweler y screenshot:

4. Yna cliciwch OK botwm, ac mae blwch prydlon wedi'i popio allan i'ch atgoffa os ydych chi am newid maint y lluniau, gweler y screenshot:

5. Cliciwch Ydy, a theipiwch rifau maint yr uchder a'r lled sy'n cael eu gwahanu gan goma i'r blwch testun, gweler y screenshot:

6. Ac yna cliciwch OK, mae'r holl ddelweddau a fewnosodwyd wedi'u haildrefnu fel yr un maint, gweler y screenshot:

Nodyn: mae maint yr uned yn bwll yng nghod VBA.

Newid maint pob llun i'r un maint yn seiliedig ar ddelwedd benodol gyda Kutools ar gyfer Word

Os oes lluniau lluosog yn bodoli yn eich dogfen Word, gyda Kutools am Word'S Newid maint Delweddau cyfleustodau, gallwch newid maint yr holl ddelweddau yn gyflym yr un fath â'r un penodol.

Ar ôl gosod Kutools am Word, gwnewch fel hyn:

1. Addaswch un llun i'r maint rydych chi ei eisiau, ac yna ei ddewis, yna cliciwch Kutools Byd Gwaith > Newid maint > Newid Maint Delweddau gyda Dewis, gweler y screenshot:

2. Ac mae'r holl ddelweddau yn y ddogfen eiriau hon wedi'u newid maint yr un peth â'r un a ddewiswyd ar unwaith, gweler y screenshot:

Cliciwch i lawrlwytho Kutools ar gyfer Word a threial am ddim nawr!

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys  /  Ailysgrifennu Testun  /  Crynhoi Dogfennau  /  Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith...

✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog  /  Newid Maint Pob Llun  /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /  Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  / Darganfod mwy yn y Mewnosod Grŵp...

🔍 Detholiadau Manwl: pinbwynt tudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  / Gwella llywio gyda mwy Dewiswch nodweddion...

⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Mae Kutools ar gyfer Word yn cynnig a Treial am ddim 60-dydd, heb unrhyw gyfyngiadau! 🚀

Lawrlwythiad Am Ddim     Darllenwch fwy     Prynu Nawr