Wie kann man ein Bild in Excel mit einem Klick vergrößern oder verkleinern?

Angenommen, es gibt mehrere Bilder in einem Arbeitsblatt, die unterschiedliche Größen haben. Haben Sie eine Möglichkeit, diese Bilder mit einem Klick auf eine Größe zu vergrößern oder zu verkleinern? Es gibt keine integrierte Funktion, um dieses Problem zu lösen, aber in diesem Artikel stelle ich einen VBA-Code vor, mit dem Sie alle Bilder im Arbeitsblatt mit einem Klick vergrößern oder verkleinern können.

Bilder mit einem Klick per VBA vergrößern und verkleinern

Bilder mit einem Klick per VBA vergrößern und verkleinern

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 den Tab des Arbeitsblatts, in dem Sie die Bilder anpassen möchten, und wählen Sie Ansicht Code aus dem Kontextmenü.

2. Fügen Sie im sich öffnenden 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 das Fenster. Wenn Sie auf eine beliebige Zelle in Spalte A klicken, werden alle Bilder verkleinert. Siehe Screenshot:

4. Wenn Sie auf die Zelle oben rechts neben dem Bild klicken, wird das entsprechende Bild vergrößert. Siehe Screenshot:

Tipp. Wenn Sie schnell ein Wasserzeichen in ein Arbeitsblatt einfügen möchten, probieren Sie bitte Kutools für Excel’s Wasserzeichen einfügen wie im folgenden Screenshot gezeigt.