Conas an íomhá chéanna a chur isteach i iliomad bileoga oibre go tapa?
De ghnáth, is féidir linn pictiúr a chur isteach i mbileog oibre go tapa tríd an bhfeidhm Ionsáigh a úsáid in Excel, ach, an ndearna muid iarracht riamh an pictiúr céanna a chur isteach i ngach bileog oibre de do leabhar oibre? An t-alt seo, tabharfaidh mé modh úsáideach isteach chun an post seo a réiteach.
Cuir an íomhá chéanna isteach i ngach bileog oibre den leabhar oibre le cód VBA
Cuir an íomhá chéanna isteach i ngach bileog oibre den leabhar oibre le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat íomhá a chur isteach i ngach bileog oibre gan stró, déan é 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 sa Modúil Fuinneog.
Cód VBA: Cuir an pictiúr céanna isteach i ngach bileog oibre:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
nótaí: Sa chód thuas, C:\Users\DT168\Desktop\pic\logo.png is é cosán agus ainm do phictiúr, agus A1 in Range("A1") an cill é inar mian leat an pictiúr a chur isteach, athraigh iad go dtí do cheann féin.
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus ansin tá an pictiúr sonrach curtha isteach i ngach cill A1 den bhileog oibre uile ag an am céanna. Féach an pictiúr:
nótaí: Coigeartófar an pictiúr a cuireadh isteach chun méid na cille a fheistiú.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!