Conas pictiúr a lárnú i gcill Excel?
Taispeánfaidh an t-alt seo modh duit chun pictiúir a bhogadh go lár na gcealla i mbileog oibre Excel mar atá thíos an pictiúr a thaispeántar.
Bog pictiúr go lár na cille le cód VBA
Bog pictiúr go lár na cille le cód VBA.
Déan mar a leanas le do thoil chun pictiúir a bhogadh go lár na gcealla i mbileog oibre in Excel.
1. Oscail an bhileog oibre tá na pictiúir a theastaíonn uait a chur i gcealla, ansin brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh cód VBA i bhfuinneog an Chóid.
Cód VBA: Bog pictiúir go lár na gcealla sa bhileog oibre
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Subnótaí:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With3. Brúigh an F5 eochair chun an cód a rith.
Ansin bogfar na pictiúir shonraithe go léir go lár cealla áirithe díreach mar a thaispeántar thíos.
Airteagail ghaolmhara:
- Conas gach pictiúr a athrú go huathoibríoch le bogadh agus méid le cealla in Excel?
- Conas a sheiceáil an bhfuil pictiúr in Excel i gcill?
- Conas íomhá nó pictiúr a chur isteach go dinimiciúil i gcill bunaithe ar luach cille in Excel?
- Conas an íomhá a mhéadú nuair a chliceálann sí uirthi 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á!
