Kako povečati sliko, ko jo kliknete v Excelu?
Recimo, da ste v stolpec vstavili seznam slik in velikosti slik uskladili z velikostmi celic, kot je prikazano spodaj. Ker je vstavljena slika videti majhna, jo boste morda morali za nekatere namene povečati. Ta članek vam bo pokazal način povečanja slike, ko jo kliknete v Excelu, in jo z drugim klikom obnovite na prvotno velikost.
Povečajte sliko, ko jo kliknete s kodo VBA
Povečajte sliko, ko jo kliknete s kodo VBA
Naslednja koda VBA vam lahko pomaga povečati sliko, ko jo kliknete v Excelu. Naredite naslednje.
1. Z desno miškino tipko kliknite sliko, ki jo želite povečati, tako da jo kliknete in nato kliknite Dodeli makro iz kontekstnega menija. Oglejte si posnetek zaslona:
2. V Ljubljani Dodeli makro pogovorno okno, kliknite Novo gumb.
3. V pojavnem oknu Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA med spodaj in End Sub kode. Oglejte si posnetek zaslona:
Koda VBA: Povečajte sliko, tako da jo kliknete v Excelu
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
Opombe: V kodi lahko dodelite velike velikosti slike v kodi big = 3.
4. Nato pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.
Od zdaj naprej se bo s klikom na sliko povečala na velikost, ki ste jo določili, in jo znova kliknila, da se povrne v prvotno velikost, kot je prikazano na spodnjih posnetkih zaslona.
Sorodni članki:
- Kako zakleniti sliko / sliko v celico ali znotraj nje v Excelu?
- Kako dinamično vstaviti sliko ali sliko v celico na podlagi vrednosti celice v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!