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 gach pictiúr ar 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 gach pictiúr ar 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 le haghaidh 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.
Kutools le haghaidh Word : le níos mó ná 100 breiseán áisiúil Word, saor in aisce le triail gan aon teorannú i gceann 60 lá. |
Tar éis a shuiteáil Kutools le haghaidh 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 Kutools for Word a íoslódáil agus triail saor in aisce anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / 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, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach 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ó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ 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...