Kako povečati sliko, ko jo kliknete v Excelu?

Recimo, da ste v stolpec vstavili seznam slik in uskladili velikosti slik z velikostmi celic, kot je prikazano na spodnji sliki. Ker je vstavljena slika videti majhna, jo boste morda morali za nekatere namene povečati. Ta članek vam bo pokazal, kako povečati sliko, ko jo kliknete v Excelu, in obnoviti prvotno velikost z drugim klikom.

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 bo ob kliku na sliko povečana na velikost, ki ste jo določili, s ponovnim klikom pa se bo povrnila na 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?