Bilder positionieren
25.05.2016 14:09:46
Gunter
In einem Excel Sheet habe ich Bilder in "Miniaturform". Durch anklicken werden diese gross und wieder klein. Dazu habe ich die folgenden Makros gefunden, welche auch prima funktionieren.
Sub Zuweisen()
Dim picBild As Picture
For Each picBild In ActiveSheet.Pictures
picBild.OnAction = "gross"
Next picBild
End Sub
Sub gross()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height * 2
.Width = .Width * 2
.Rotation = 0#
.OnAction = "Tabelle1.klein"
End With
End Sub
Sub klein()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Height = .Height / 2
.Width = .Width / 2
.Rotation = 0#
.OnAction = "Tabelle1.gross"
End With
End Sub
Nun möchte ich aber, dass die Bilder beim "Grossmachen" in der Bildmitte erscheinen und beim "Kleinmachen" wieder an die ursprüngliche Postion zurück kehren. Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
Anzeige