unbekante Shapes automatisch gruppieren
11.11.2007 16:32:00
Jürgen
ich möchte alle auf der Seite befindlichen Shapes per makro automatisch gruppieren.
Die nachfolgende Routine markiert die Shapes zwar, simuliert aber nicht die gedrückte Shift-Taste.
Sie funktioniert also nicht.
Sub Gruppieren1()
Dim Sh As Shape, Rng As Range
Set Rng = Range("A1:AO44")
For Each Sh In ActiveSheet.Shapes
On Error Resume Next
Application.OnKey "Shift"
If Not Intersect(Sh.TopLeftCell, Rng) Is Nothing Then Sh.Select
Next Sh
Selection.ShapeRange.Group.Select
End Sub
Kennt da jemand eine Lösung?
Gruß
Jürgen
Anzeige