Conas pictiúir iolracha leis an méid céanna a chur isteach i ndoiciméad Word?

De ghnáth, is féidir leat iliomad íomhánna a chur isteach i ndoiciméad Word ag a bhfuil a méid bunaidh. Uaireanta, ní mór duit na híomhánna seo a shocrú ar an méid céanna agus iad á gcur isteach. An t-alt seo, labhróidh mé faoi conas pictiúir iolracha a chur isteach leis an méid céanna i ndoiciméad Word.

Cuir isteach pictiúir iolracha leis an méid céanna i ndoiciméad Word le cód VBA

Athraigh méid na bpictiúr go dtí an méid céanna bunaithe ar íomhá ar leith le Kutools for Word

Cuir isteach pictiúir iolracha leis an méid céanna i ndoiciméad Word le cód VBA

Is féidir leis an gcód vba seo a leanas cabhrú leat iliomad pictiúr a chur isteach agus iad a athrú go dtí do mhéid sonraithe ag an am céanna, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: cuir isteach iliomad pictiúr leis an méid céanna:

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. Agus ansin, brúigh F5 eochair chun an cód seo a rith, a Brabhsáil taispeántar an fhuinneog, roghnaigh an fillteán ina bhfuil na híomhánna a theastaíonn uait a chur isteach, féach ar an scáileán:

4. Ansin cliceáil OK cnaipe, agus tá bosca pras popped amach chun a mheabhrú duit más mian leat na pictiúir a athrú méid, féach an scáileán:

5. Cliceáil Is ea, agus clóscríobh uimhreacha méide an airde agus an leithead atá scartha le camóg sa bhosca téacs, féach an scáileán:

6. Agus ansin cliceáil OK, atheagraíodh na híomhánna uile a cuireadh isteach mar an méid céanna, féach an scáileán:

nótaí: tá méid an aonaid lochán i gcód VBA.

Athraigh méid na bpictiúr go dtí an méid céanna bunaithe ar íomhá ar leith le Kutools for Word

Má tá pictiúir iolracha ann i do dhoiciméad Word, le Kutools for Word'S Athraigh Athraigh Íomhánna fóntais, is féidir leat gach íomhá a athrú go tapa mar an gcéanna leis an gceann sonrach.

Tar éis a shuiteáil Kutools for Word, déan mar seo le do thoil:

1. Coigeartaigh pictiúr amháin ar an méid atá uait, agus ansin roghnaigh é, ansin cliceáil Kutools Plus > Athraigh méid > Athraigh Athraigh Íomhánna leis an Roghnú, féach ar an scáileán:

2. Agus athraíodh gach íomhá sa doiciméad focal seo mar an gcéanna leis an gceann a roghnaíodh láithreach, féach an scáileán:

Cliceáil chun íoslódáil Kutools for Word agus triail saor in aisce anois!

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools for Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

Léim isteach sna gnéithe aibhsithe thíos nó cliceáil anseo chun cumhacht iomlán na Kutools for Word.

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/XLSX)  /  Baisc a thiontú go PDF  /  Easpórtáil Leathanaigh mar Íomhánna  /  Priontáil Comhaid Il ag an am céanna ...

✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il   /  Athraigh Méid Gach Pictiúr   /  Trasnaigh Rónna Tábla agus Colúin  /  Tiontaigh Tábla go Téacs ...

🧹 Effortless Glan: Sguab as Spásanna Breise  /  Sosanna Alt  /   Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  /  Le haghaidh tuilleadh uirlisí a bhaint, téigh chuig ár Bain Grúpa

➕ Ionsáigh Cruthaitheach: Ionsáigh Míle Deighilteoir  /  Boscaí Seiceála  /  Cnaipí Raidió  /  Cód QR  /  barcode  /  Tábla Líne Trasnánach  /  Fotheideal Cothromóid  /  Fotheideal Íomhá  /  Fotheideal Tábla  /  Pictiúir Il  /  Faigh amach níos mó inár Insert Group

🔍 Roghanna Beachtais: Pinpoint leathanaigh ar leith  /  táblaí  /  cruthanna  /  míreanna ceannteideal  /  Déan nascleanúint gan stró ag baint úsáide as ár Roghghrúpa

⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair  /  cuir isteach téacs athchleachtach go huathoibríoch  /  scoránaigh gan uaim idir fuinneoga doiciméad  /  11 Uirlisí Tiontaithe ...

Trasfhoirmigh do thascanna Word le Kutools. 👉 Íoslódáil le triail 30 lá Anois 🚀.

Leigh Nios mo       Free Download      Ceannach