Macro - Ebene kopieren

[norre]

Hallo,
ich habe mir ein Macro aufgezeichnet, dass die aktive Ebene der aktuellen Seite kopiert und den Namen "Kopie von akt. Ebene" vergibt.
So, ich als Macrodummy bringe es natürlich nicht fertig, dass dies dann im ganzen Dokument durchläuft und eventuell sogar dem Namen der aktuellen Ebene übernimmt und z.B Kopie mit anhängt.
Jemand ;-) eine Idee

Sub Kopie_von_akt_Ebene()
' Recorded 04.11.2013
ActiveLayer.Shapes.All.CreateSelection
ActiveSelection.Copy
Dim lr1 As Layer
Set lr1 = ActivePage.CreateLayer("Kopie von akt.Ebene")
lr1.Shapes.All.CreateSelection
Dim grp1 As ShapeRange
Set grp1 = ActiveSelection.UngroupEx
Dim pasteopt As StructPasteOptions
Set pasteopt = CreateStructPasteOptions
With pasteopt.ColorConversionOptions
.SourceColorProfileList = "ECI-RGB.icc,ISO Coated v2 (ECI),Dot Gain 15%"
.TargetColorProfileList = "ECI-RGB.icc,ISO Coated v2 (ECI),Dot Gain 15%"
End With
Dim Paste1 As ShapeRange
Set Paste1 = lr1.PasteEx(pasteopt)
End Sub

[koter]

Hallo Norre,

in Deinem Makro kommen Dinger wie CreateStructPasteOptions vor. Das kenne ich garnicht. Bestimmt gibt es so etwas in X4 noch nicht.

Im Anhang ist eine gezippte BAS-Datei. Darin gibt es die SUBs:
GleichnamigeEbenenDuplizieren und AktiveEbenenDuplizieren.

GleichnamigeEbenenDuplizieren dupliziert alle Ebenen, die den selben Namen haben wie die aktive Ebene.

AktiveEbenenDuplizieren dupliziert die Ebenen die zuletzt aktiviert waren. Wenn man in X4 eine Datei neu öffnet ist immer Die oberste Ebene aktiv. man muß also auf jeder Seite die zu duplizierende Ebene aktivieren.

Ich habe in Deinem Makro den Befehl UngroupEx gesehen.
Also gehe ich davon aus, dass Gruppierungen in den Kopien aufgehoben werden sollen. Ist das nicht der Fall musst Du den Befehl:
Call EbeneGruppenAufheben(lc) aus den SUBs entfernen.

Ich hoffe das klappt mit X6 (bin diesmal ein wenig skeptisch).

Gruß

Koter

[norre]

Hallo Koter,
und nochmals läuft unter X6 wunderbar :daumen:

Tja zu den Funktionen kann ich nix sagen, habs nur aufgenommen - aber gewundert, dass da was von ColorConversionOptions und Farbprofilen drinnensteht