Conas pictiúr a chur isteach sa bhosca téacs?
De réir réamhshocraithe, is féidir linn pictiúr nó íomhá a chur isteach i mbileog oibre chomh tapa tríd an bhfeidhm Ionsáigh a úsáid, ach, ní chuirtear an ghné seo i bhfeidhm maidir le pictiúr a chur isteach i mbosca téacs. Leis an alt seo, is féidir liom cabhrú leat pictiúr a chur isteach i mbosca téacs de réir mar is gá duit.
Cuir pictiúr nó íomhá isteach i mbosca téacs le cód VBA
Cuir pictiúr nó íomhá isteach i mbosca téacs le cód VBA
Chun pictiúr a chur isteach i mbosca téacs, b’fhéidir go gcabhróidh an cód VBA seo a leanas leat, déan é seo le do thoil:
1. Cuir bosca téacs isteach trí chliceáil Ionsáigh > Bosca téacs, agus ansin bosca téacs a tharraingt, féach an scáileán:
2. Ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Cuir pictiúr isteach sa bhosca téacs:
Sub ShapePicture()
Dim xSh As Shape
Dim xPic As IPictureDisp
Dim xFileName As String
xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
Set xPic = LoadPicture(xFileName)
Set xSh = Sheets("Sheet4").Shapes(1)
xSh.Height = xPic.Height / xPic.Width * xSh.Width
Set xPic = LoadPicture("")
Set xPic = Nothing
xSh.Fill.UserPicture xFileName
End Sub
nótaí: Sa chód thuas, Sheet4 an t-ainm bileog ina bhfuil an bosca téacs a theastaíonn uait pictiúr a chur isteach ann, agus C: \ Úsáideoirí \ DT168 \ Deisce \ pictiúir \ Apple.JPG is é cosán an phictiúr atá tú ag iarraidh a chur isteach, ba cheart duit iad a athrú de réir do riachtanas.
4. Agus ansin brúigh F5 eochair chun an cód seo a rith, cuirfear an íomhá shonrach isteach sa bhosca téacs ag an am céanna, agus is féidir leat an bosca téacs a chur in eagar de réir mar is gá duit, féach an scáileán:
Earraí gaolmhara:
Conas luach réamhshocraithe a shocrú i mbosca téacs?
Conas nach féidir ach uimhreacha a ionchur sa bhosca téacs?
Conas seiceáil litrithe a chur i bhfeidhm sa bhosca téacs?
Conas dath bosca téacs a athrú bunaithe ar luach in Excel?
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á!