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 WithHinweis: 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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins