Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autoformen gruppieren

Autoformen gruppieren
20.02.2009 10: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
Anzeige
AW: Autoformen gruppieren
20.02.2009 11: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




Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige