Wie vergrößert man ein Bild beim Anklicken in Excel?
Angenommen, Sie haben eine Liste von Bildern in eine Spalte eingefügt und deren Größe an die jeweiligen Zellen angepasst – so wie im folgenden Screenshot gezeigt. Da die eingefügten Bilder recht klein erscheinen, möchten Sie sie gezielt vergrößern. In diesem Artikel erfahren Sie, wie Sie ein Bild in Excel per Klick vergrößern und mit einem weiteren Klick wieder auf seine ursprüngliche Größe zurücksetzen können.
Bild beim Anklicken mithilfe eines VBA-Codes vergrößern
Bild beim Anklicken mithilfe eines VBA-Codes vergrößern
Mit dem folgenden VBA-Code können Sie ein Bild in Excel beim Anklicken vergrößern. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf das Bild, das Sie durch einfaches Anklicken vergrößern möchten, und wählen Sie im Kontextmenü Makro zuweisen. Siehe Screenshot:
2. Klicken Sie im Dialogfeld Makro zuweisen auf die Schaltfläche Neu.
3. Fügen Sie im daraufhin geöffneten Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code zwischen die Zeilen Sub und End Sub ein. Siehe Screenshot:
VBA-Code: Bild beim Anklicken 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 legen Sie die gewünschte Vergrößerungsgröße des Bildes fest, indem Sie big = 3 zuweisen.
4. Drücken Sie anschließend gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird das Bild beim Anklicken auf die von Ihnen festgelegte Größe vergrößert; ein erneutes Anklicken stellt die Originalgröße wieder her, wie in den folgenden Screenshots gezeigt.
Verwandte Artikel:
- Wie kann man ein Bild oder eine Grafik an oder innerhalb einer Zelle in Excel fixieren?
- Wie kann man Bild einfügen oder ein Bild dynamisch in einer Zelle basierend auf dem Zellenwert in Excel anzeigen?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins