Wie vergrößert oder verkleinert man ein Bild in Excel mit nur einem Klick?
Angenommen, auf einem Arbeitsblatt befinden sich mehrere Bilder unterschiedlicher Größe – lässt sich deren Größe mit nur einem Klick vereinheitlichen? Eine integrierte Funktion hierfür gibt es nicht, doch in diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie alle Bilder auf dem Blatt per Mausklick ganz einfach auf dieselbe Größe skalieren können.
Bilder mit einem Klick vergrößern und verkleinern mithilfe von VBA
Bilder mit einem Klick vergrößern und verkleinern mithilfe von VBA
Führen Sie die folgenden Schritte aus, um Bilder per Klick zu vergrößern oder zu verkleinern.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, in dem Sie die Bilder anpassen möchten, und wählen Sie im Kontextmenü Code anzeigen aus.
2. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Skript ein.
VBA: Bilder mit einem Klick vergrößern und verkleinern
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub
3. Speichern Sie den Code und schließen Sie dieses Fenster. Sobald Sie auf eine beliebige Zelle in Spalte A klicken, werden alle Bilder automatisch verkleinert. Siehe Screenshot:
4. Sobald Sie auf die Zelle klicken, die sich oben rechts neben dem Bild befindet, wird das entsprechende Bild vergrößert. Siehe Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
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