Sut i fewnosod ac newid maint delweddau i'r un maint yn Word?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2025-01-07

Fel arfer, gallwch fewnosod delweddau lluosog ar unwaith mewn dogfen Word gyda'u meintiau gwreiddiol. Fodd bynnag, mae yna adegau pan fydd angen i chi sicrhau bod pob delwedd yr un maint ar gyfer edrychiad cyson a phroffesiynol. Gall newid maint pob delwedd â llaw gymryd amser. Bydd y canllaw hwn yn dangos i chi sut i fewnosod lluniau lluosog mewn dogfen Word yn effeithlon a'u newid maint yn unffurf, gan sicrhau cynllun proffesiynol a chydlynol.

Mewnosod a newid maint lluniau lluosog i'r un maint yn Word gan ddefnyddio VBA

Newid maint yr holl luniau i gyd-fynd â delwedd benodol gan ddefnyddio Kutools ar gyfer Word

Mewnosod a newid maint lluniau lluosog i'r un maint yn Word gan ddefnyddio VBA

Gall y cod VBA canlynol eich helpu i fewnosod lluniau lluosog a'u newid maint i'ch dimensiynau penodedig i gyd ar unwaith. Dilynwch y camau hyn os gwelwch yn dda:

Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.

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

Pwyswch F5 i redeg y cod hwn. A Pori bydd ffenestr yn ymddangos. Dewiswch y ffolder sy'n cynnwys y delweddau rydych chi am eu mewnosod a chliciwch OK.
Bydd anogwr yn ymddangos yn gofyn a ydych am newid maint y lluniau. Cliciwch Ydy.
Rhowch yr uchder a'r lled mewn pwyntiau (pt), wedi'u gwahanu gan goma, yn y blwch testun sy'n ymddangos, ac yna cliciwch OK.
Bydd yr holl ddelweddau a fewnosodir nawr yn cael eu newid maint i'r dimensiynau penodedig.

Newid maint yr holl luniau i gyd-fynd â delwedd benodol gan ddefnyddio Kutools ar gyfer Word

Pan fydd eich dogfen Word yn cynnwys lluniau lluosog, gall eu newid maint fesul un fod yn ddiflas. Gyda Kutools am Word, Newid maint Delweddau cyfleustodau yn gadael i chi newid maint yr holl ddelweddau yn gyflym i gyd-fynd â maint un penodol.

Kutools am Word, offer gyda AI 🤖, yn cynnig dros 100 o nodweddion defnyddiol i symleiddio'ch tasgau.

Lawrlwytho Nawr

Addaswch un llun i'r maint a ddymunir a'i ddewis. Yna cliciwch Kutools Byd Gwaith > Newid maint > Newid Maint Pob Delwedd Yn Seiliedig ar Dethol.

Bydd yr holl ddelweddau yn y ddogfen Word yn cael eu newid ar unwaith i gyd-fynd â maint y llun a ddewiswyd.

Mae pob llun yn cael ei newid maint i gyd-fynd â maint y llun a ddewiswyd

Kutools am Word yw'r ychwanegiad Word eithaf sy'n symleiddio'ch gwaith ac yn rhoi hwb i'ch sgiliau prosesu dogfennau. Ei gael Nawr!

Offer Cynhyrchiant Swyddfa Gorau

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

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp 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 / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

Tabiau Kutools a Kutools Plus ar y Word Ribbon

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools ar gyfer Word

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools