Autoformen gruppieren

Forumthread: Autoformen gruppieren
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Autoformen gruppieren

20.02.2009 11:00:00

Jonatan

Hallo,
ich frage mich wie ich verschiedene Autoformen gemeinsam auswählen kann. Ich habe das so versucht:
For z = 1 To a
If auswahl Is Nothing Then
Set auswahl = ActiveSheet.Shapes.Range((JL(z)))
Else
auswahl = Union(auswahl, ActiveSheet.Shapes(JL(z)))
End If
MsgBox z
MsgBox JL(z)
Next z
Dabei werden die JL() vorher gefüllt. (das "a" ist auch vorher definiert). Das Problem liegt also nicht an diesem Array, sondern daran wie ich die Auswahl setzte. Ich habe "auswahl" als Range definiert. Ist das richtig?
Vielen Dank für eure Hilfe
Gruß Jonatan

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autoformen gruppieren

20.02.2009 12:03:00

Beverly

AW: Autoformen gruppieren

20.02.2009 12:03:00

Beverly

Hi Jonathan,
vielelicht eine Möglichkeit:


Sub shapes_gruppieren()
Dim shShape As Shape
Dim arrShapes()
Dim loShapes As Long
ReDim arrShapes(0)
For Each shShape In ActiveSheet.Shapes
If shShape.Top > Range("C14:H36").Top And shShape.Left > Range("C14:H36").Left And _
(shShape.Top + shShape.Height  0 Then
ActiveSheet.Shapes.Range(arrShapes()).Group
End If
End Sub