Wie kann man ein Bild mit einem Klick in Excel vergrößern oder verkleinern?
Angenommen, ein Blatt enthält mehrere Bilder in unterschiedlichen Größen. Haben Sie Möglichkeiten, diese Bilder mit einem Klick in einer Größe zu vergrößern oder zu verkleinern? Es gibt keine integrierte Funktion, um das Problem zu lösen. In diesem Artikel stelle ich jedoch einen VBA-Code vor, mit dem alle Bilder im Blatt mit einem Klick vergrößert oder verkleinert werden können.
Vergrößern und verkleinern Sie Bilder mit einem Klick von VBA
Vergrößern und verkleinern Sie Bilder mit einem Klick von VBA
Führen Sie die folgenden Schritte aus, um Bilder mit einem Klick zu vergrößern oder zu verkleinern.
1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, auf der Sie die Größe der Bilder ändern möchten, und wählen Sie aus Code anzeigen aus dem Kontextmenü.
2. Im Knallen Microsoft Visual Basic für Anwendungs Fenster und fügen Sie den folgenden Code in das leere Skript ein.
VBA: Vergrößern und verkleinern Sie Bilder mit einem Klick
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 das Fenster. Wenn Sie auf eine Zelle in Spalte A klicken, werden alle Bilder verkleinert. Siehe Screenshot:
4. Wenn Sie auf die Zelle rechts oben im Bild klicken, wird das relative Bild vergrößert. Siehe Screenshot:
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!