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
Nun will ich das Gleiche mit einer Gruppierung aus einem Bild und mehreren Formen machen wie muss ich mein bestehendes Makro abändern das dies funktioniert?