Wie vergrößert man ein Bild, wenn man darauf klickt, in Excel?

Angenommen, Sie haben eine Reihe von Bildern in eine Spalte eingefügt und die Bildgrößen mit den Zellgrößen wie im folgenden Screenshot abgeglichen. Da das eingefügte Bild klein erscheint, müssen Sie es möglicherweise aus bestimmten Gründen vergrößern. Dieser Artikel zeigt Ihnen eine Methode, um ein Bild beim Klicken darauf in Excel zu vergrößern und mit einem zweiten Klick auf die Originalgröße zurückzusetzen.

Bild vergrößern beim Klicken mit VBA-Code

Bild vergrößern beim Klicken mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, ein Bild beim Klicken darauf in Excel zu vergrößern. Bitte gehen Sie wie folgt vor.

1. Klicken Sie mit der rechten Maustaste auf das Bild, das Sie durch einfaches Klicken darauf vergrößern möchten, und klicken Sie dann im Kontextmenü auf Makro zuweisen. Siehe Screenshot:

2. Klicken Sie im Dialogfeld „Makro zuweisen“ bitte auf die Schaltfläche Neu.

3. Kopieren Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code zwischen den Sub- und End Sub-Codes und fügen Sie ihn ein. Siehe Screenshot:

VBA-Code: Bild durch Klick in Excel vergrößern

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

Hinweis: Im Code können Sie die großen Größen des Bildes im Code big = 3 zuweisen.

4. Drücken Sie dann gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab jetzt wird das Bild beim Klicken darauf auf die angegebene Größe vergrößert, und ein erneutes Klicken setzt es auf seine Originalgröße zurück, wie in den folgenden Screenshots gezeigt.

Verwandte Artikel:

• Wie sperrt man ein Bild/Bild in oder innerhalb einer Zelle in Excel?
• Wie fügt man dynamisch ein Bild in eine Zelle basierend auf dem Zellenwert in Excel ein?