Conas pictiúr a mhéadú nó a chrapadh le cliceáil amháin in Excel?
Má cheaptar go bhfuil iliomad pictiúr i mbileog atá i méideanna éagsúla. An bhfuil aon bhealaí agat na pictiúir seo a mhéadú nó a chrapadh in aon mhéid le cliceáil amháin? Níl aon ghné ionsuite ann chun é a réiteach, ach san alt seo, tugaim isteach cód VBA chun gach pictiúr sa bhileog a mhéadú nó a chrapadh le cliceáil amháin.
Pictiúir a mhéadú agus a chrapadh le cliceáil amháin le VBA
Pictiúir a mhéadú agus a chrapadh le cliceáil amháin le VBA
Déan mar atá thíos céimeanna chun pictiúir a mhéadú nó a chrapadh le cliceáil amháin.
1. Cliceáil ar dheis ag an táb bileog inar mian leat na pictiúir a athrú, agus roghnaigh Féach an cód ón roghchlár comhthéacs.
2. Sa popping Microsoft Visual Basic le haghaidh Feidhmchláirs fuinneog, agus greamaigh faoin gcód leis an script bán.
VBA: Méadú agus crapadh pictiúir le cliceáil amháin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub
3. Sábháil an cód agus dún an fhuinneog. Agus nuair a chliceálann tú ar aon chill de cholún A, craolfar na pictiúir go léir. Féach an pictiúr:
4. Agus nuair a chliceálann tú ar an gcill atá ag barr ceart an phictiúr, méadófar an pictiúr coibhneasta. Féach an pictiúr:
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á!