Gruppierung vergrößern und verkleinern
27.11.2014 14:35:24
Florian
ich habe folgendes Problem ich habe ein Makro mit dem ich Bilder durch einmaliges anklicken vergrößern kann und bei wiederholtem anklicken verkleinern sie sich wieder.
Das funktioniert soweit auch gut.
Sub gross()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height / 2.5
.Width = .Width / 2.5
.OnAction = "klein"
End With
End Sub
Sub klein()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height * 2.5
.Width = .Width * 2.5
.OnAction = "gross"
End With
End Sub
Anzeige