Ebenen zusammenführen

[koter]

Hallo Günther,

bei mir klappt es mit den Makros aus Beitrag 2.
Zum Markieren in einem Quadrant (einer Objektseite) habe ich noch ein Makro:

Code:

Private Function Quadrant(s As Shape) As Integer
   Dim mX As Double, mY As Double, sX As Double, sY As Double
   Dim q As Integer
   mX = ActivePage.CenterX
   mY = ActivePage.CenterY
   sX = s.CenterX
   sY = s.CenterY
   Quadrant = Switch(sX < mX And sY > mY, 1, sX > mX And sY > mY, 2, sX < mX And sY < mY, 3, sX > mX And sY < mY, 4)
End Function

Sub markieren()
   Dim s As Shape
   Dim A As Variant
   Dim i As Integer, q As Integer
   If ActiveSelectionRange.Count = 0 Then Exit Sub

   A = Array("Überschrift", "Angebotstext", "Fußnote mit Preis + Telefonnr", "Bild", "Seitenlaschen")

   q = Quadrant(ActiveShape)
   For i = 0 To UBound(A)
       For Each s In ActivePage.Layers(A(i)).Shapes
           If Quadrant(s) = q Then s.AddToSelection
       Next
   Next i
End Sub

Sub kopieren()
   ActiveSelection.Copy
End Sub

Sub Stapel()
   markieren
   QuellgruppeErzeugen
   kopieren
End Sub

Du musst ein Objekt im Quadrant auswählen und dann das Makro „markieren“ ausführen.
Es wird nur in Ebenen markiert, die im Array „A“ aufgeführt sind.

Du kannst aus der Markierung eine Quellgruppe erzeugen, diese kopieren und in ein anderes Dokument einfügen.
Dort kannst Du sie positionieren und dann auflösen (Makro: „QuellgruppeVerteilen“).
Dann sollten alle Objekte in den richtigen Ebenen sitzen.

Das Makro „Stapel“ ist nur ein Beispiel dafür, wie man einzelne Makros nacheinander ablaufen lassen kann.

Ich hoffe, dass die Makros bei Dir funktionieren.

...wahrscheinlich habe ich wieder einmal schlecht formuliert...

 
...oder ich war wieder einmal zu doof es zu verstehen.

Ich wünsche Dir einen möglichst stressfreien Umzug (falls das überhaupt geht).

Gruß

Koter