Sut i ehangu neu grebachu llun gydag un clic yn Excel?
Gan dybio bod sawl llun mewn dalen sydd mewn gwahanol feintiau. A oes gennych unrhyw ffyrdd i ehangu neu grebachu'r lluniau hyn mewn un maint gydag un clic? Nid oes unrhyw nodwedd adeiledig i'w datrys, ond yn yr erthygl hon, rwy'n cyflwyno cod VBA i ehangu neu grebachu pob llun yn y ddalen gydag un clic.
Ehangu a chrebachu lluniau gydag un clic gan VBA
Ehangu a chrebachu lluniau gydag un clic gan VBA
Gwnewch fel isod gamau i ehangu neu grebachu lluniau gydag un clic.
1. Cliciwch ar y dde wrth y tab dalen lle rydych chi am newid maint y lluniau, a dewis Gweld y Cod o'r ddewislen cyd-destun.
2. Yn y popping Microsoft Visual Basic ar gyfer Cymhwysos ffenestr, a'i gludo o dan y cod i'r sgript wag.
VBA: Ehangu a chrebachu lluniau gydag un clic
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. Cadwch y cod a chau'r ffenestr. A phan gliciwch ar unrhyw gell yng ngholofn A, bydd yr holl luniau'n crebachu. Gweler y screenshot:
4. A phan gliciwch yn y gell sydd ar ben dde'r llun, bydd y llun cymharol yn cael ei chwyddo. Gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!