Bilder per Mausklick vergrößern
13.02.2021 14:42:29
Luke
ich möchte in Excel per Mausklick ein Bild vergrößern bzw. dann mit einem 2. Mausklick das Bild wieder verkleinern.
Jetzt habe ich eine Code der funktioniert, nur wenn ich die Excel schließe und dann wieder öffne ist das Bild sehr unscharf.
Was kann man hier tun? Danke!
Sub gross()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height / 3
.Width = .Width / 3
.OnAction = "klein"
End With
End Sub
Sub klein()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height * 3
.Width = .Width * 3
.OnAction = "gross"
End With
End Sub
Anzeige