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:

Tip. Wenn Sie schnell ein Wasserzeichen in ein Blatt einfügen möchten, versuchen Sie bitte, die Kutools für Excel zu verwenden Wasserzeichen einfügen wie im folgenden Screenshot gezeigt.