Conas pictiúir iolracha den mhéid céanna a chur isteach i Word?
De ghnáth, is féidir leat íomhánna iolracha a chur isteach ag an am céanna i ndoiciméad Word agus a méideanna bunaidh. Mar sin féin, tá amanna ann nuair is gá duit a chinntiú go bhfuil gach íomhá ar an méid céanna le haghaidh cuma comhsheasmhach agus gairmiúil. D'fhéadfadh sé a bheith am-íditheach do gach íomhá a athrú de láimh. San Airteagal seo, déanfaimid plé ar conas pictiúir iolracha den mhéid céanna a chur isteach i ndoiciméad Word, ag soláthar bealach níos éifeachtaí chun do chuid íomhánna a bhainistiú agus aonfhoirmeacht a choinneáil i leagan amach do dhoiciméid.
Cuir isteach pictiúir iolracha leis an méid céanna i Word le 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 cuirtear bosca leid amach chun a chur i gcuimhne duit más mian leat na pictiúir a athrú, féach an seat scáileáin:
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.
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:
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Gnéithe Kutools AI: Gin Ábhar / Athscríobh Téacs / Doiciméad C&A / Faigh Freagraí Tapa / Aistrigh doiciméid / Doiciméad Polainnis (Caomhnaigh Formáid)...
📘 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...
✏ Eagarthóireacht na nÁbhar: Baisc Aimsigh 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 / Boscaí Téacs / Hipearnasc / Chun níos mó uirlisí a bhaint, ceann chuig an Bain grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Pictiúir Il / Faigh amach níos mó sa Ionsáigh grúpa...
🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha / Táblaí / cruthanna / Míreanna Ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh bailte fearainn...
⭐ Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith / Uath-Ionsáigh Téacs Athchleachtach / Scoránaigh Idir Windows Doiciméad / 11 Tiontú uirlisí...
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - 100+ Uirlisí le haghaidh Word
- 🤖 Gnéithe Kutools AI: Gin, Athscríobh, Achoimre a dhéanamh ar, aistriú Doiciméid / Faigh Freagraí Tapa / Doiciméad Polainnis (Caomhnaigh Formáid)
- 📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Baisc a thiontú go PDF
- ✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh / Athraigh Méid Gach Pictiúr
- 🧹 Effortless Glan: Bain Spásanna Breise / Bain Sosanna Alt
- ➕ Ionsáigh Cruthaitheach: Cuir isteach na mílte deighilteoirí / Cuir Seiceálacha isteach / Cruthaigh Cóid QR