Stapelverarbeitung?
#1
Hallo an euch alle


Ich habe eine Coreldatei mit 450 Seiten erstellt und habe von einem Kunden 450 verschiedene QR-Code's als EPS Datei bekommen,die allerdings in der Größe noch angepaßt werden müssen und auf einen bestimmten stand auf jeder Seite
eingefügt erden müssen......

Wie mache ich das am besten?


LG
Michael

Betriebssystem / Grafik-Software: Windows 7 64 Bit, Corel X5 bis Corel 2018
Zitieren
#2
Hallo Michael,

um dir genau helfen zu können teile uns bitte deine Corelversion mit, auch ob du eine Vollversion oder eine Home & Student hast. Am besten schreibst du es in deine Singnatur schau HIER

Gruß
Norre
Zitieren
#3
So denke steht jetzt alles da:-)

Betriebssystem / Grafik-Software: Windows 7 64 Bit, Corel X5 bis Corel 2018
Zitieren
#4
Oder hat jemand ein Makro für mich?

Betriebssystem / Grafik-Software: Windows 7 64 Bit, Corel X5 bis Corel 2018
Zitieren
#5
Hallo Michael,

(13.02.2019, 14:15)DJMC schrieb: Oder hat jemand ein Makro für mich?

Ich habe ein schlichtes Makro zusammengebastelt:
Code:
Sub QREPSImp()
   Dim Pfad As String, EPSDateiPFix As String, Ebene As String, ImportDatei As String
   Dim x As Double, y As Double, w As Double, h As Double
   Dim i As Integer
   Dim QREPS As Shape
   
   Set QREPS = ActiveDocument.MasterPage.Layers("Hilfslinien").Shapes("QREPS")
   
   Pfad = "C:\temp\corelforum\DJMC\"
   EPSDateiPFix = "QR_"
   Ebene = ActiveLayer.Name
   
   i = 1
   QREPS.GetBoundingBox x, y, w, h
   ActiveDocument.BeginCommandGroup "QR Import"
   Application.Optimization = True
   For i = 1 To ActiveDocument.Pages.Count
       ImportDatei = Pfad & EPSDateiPFix & Format(i, "0#") & ".EPS"
       ActiveDocument.Pages(i).Layers(Ebene).Import ImportDatei, cdrEPS
       ActiveShape.SetBoundingBox x, y, w, h
   Next i
   Application.Optimization = False
   ActiveDocument.EndCommandGroup
   ActiveWindow.Refresh
   
End Sub


Du musst dazu ein Rechteck (Quadrat) zu den Hilfslinien der Masterseite hinzufügen und es QREPS nennen.
In Dieses werden die QR-Codes eingepasst.

[Bild: epsimp7mko9.gif]

Das Makro benutzt die Dateinamen der EPS-Dateien um sie der richtigen Seite zuzuordnen.
Das wird bei Deinen Dateien sicher anders sein.
Falls Du das Makro benutzen willst, muss es also noch auf Deine Bedürfnisse angepasst werden.

Gruß

Koter
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • DJMC
Zitieren
#6
Guten morgen Koter

Erstmal vielen dank für dein Makro!
Jetzt muß ich gestehen das ich nicht so der Makro-Experte bin....:-(

Bekomme es nicht gestartet.....

Der Ordner liegt auf C:\QR-Codes
Das habe ich in deinem Script auch geändert, aber startet nicht.
Liegt es vielleicht an dem Dateinamen?
Die EPS fangen bei mir mit W0889140.eps an und hören mit W0889589.eps auf
ALso hinten Nummeriert!
Desweiten sind die EPS Dateien wenn ich die Importiere 91,666x91,666mm groß und soll 25x25mm groß werden!

Ich hänge mal die Masterseite mit an!

LG
Michael

Betriebssystem / Grafik-Software: Windows 7 64 Bit, Corel X5 bis Corel 2018
Zitieren
#7
Hallo Michael,

(14.02.2019, 09:33)DJMC schrieb: ...Der Ordner liegt auf C:\QR-Codes...
...Die EPS fangen bei mir mit W0889140.eps an und hören mit W0889589.eps auf...

OK, dann muss das Makro so aussehen:
Code:
Sub QREPSImp()
   Dim Pfad As String, EPSDateiPFix As String, Ebene As String, ImportDatei As String
   Dim x As Double, y As Double, w As Double, h As Double
   Dim i As Integer
   Dim QREPS As Shape
   
   Set QREPS = ActiveDocument.MasterPage.Layers("Hilfslinien").Shapes("QREPS")
   
   Pfad = "C:\QR-Codes\"
   EPSDateiPFix = "W0889"
   Ebene = ActiveLayer.Name
   
   i = 1
   QREPS.GetBoundingBox x, y, w, h
   ActiveDocument.BeginCommandGroup "QR Import"
   Application.Optimization = True
   For i = 1 To ActiveDocument.Pages.Count
       ImportDatei = Pfad & EPSDateiPFix & i + 139 & ".EPS"
       ActiveDocument.Pages(i).Layers(Ebene).Import ImportDatei, cdrEPS
       ActiveShape.SetBoundingBox x, y, w, h
   Next i
   Application.Optimization = False
   ActiveDocument.EndCommandGroup
   ActiveWindow.Refresh
   Exit Sub
   
End Sub
(getestet mit X4 (32Bit) und X6(64Bit))
DJMC schrieb:...Desweiten sind die EPS Dateien wenn ich die Importiere 91,666x91,666mm groß und soll 25x25mm groß werden!...

Dann muss das oben genannte Rechteck bei den Hilfslinien der Masterseite 25x25mm groß sein.

DJMC schrieb:Ich hänge mal die Masterseite mit an!

Den Anhang habe ich nicht gefunden, ich muss mich wohl noch intensiver mit der neuen Forensoftware beschäftigen!

Die Ausführung des Makros kann bei 450 Seiten einige Zeit dauern, habe also ein wenig Geduld!

Gruß

Koter
[-] 2 Benutzer bedanken sich bei koter für diesen Beitrag:
  • DJMC, Unkraut
Zitieren
#8
(14.02.2019, 18:08)koter schrieb: Den Anhang habe ich nicht gefunden, ich muss mich wohl noch intensiver mit der neuen Forensoftware beschäftigen!

Hallo Koter,
Du brauchst nicht nach dem Anhang  zu suchen, denn hier ist wohl keiner.

(Die Anzeige der Anhänge kann man unter Benutzer-CP →   Optionen → Themenansicht festlegen.)


Liebe Grüße, Chris

Betriebssystem / Grafik-Software: Win 7
[-] 1 Benutzer bedankt sich bei Unkraut für diesen Beitrag:
  • koter
Zitieren
#9
Hier nochmal die Datei!


Angehängte Dateien
.cdr   CSC 200x100 Laser 450 Stück.cdr (Größe: 371,85 KB / Downloads: 3)

Betriebssystem / Grafik-Software: Windows 7 64 Bit, Corel X5 bis Corel 2018
Zitieren
#10
Hallo Michael,
ich habe mir auch mal die Datei runtergeladen...man ist ja neugierig Smile 

Was mir jetzt aufgefallen ist:
Ich denke die Beschriftung in den roten Kästen ändert sich bei jeder Seite?
Dann darfst du diese nicht auf eine Masterseite legen sondern mußt diese auf eine normale Ebene.
Bei zwei Beschriftungen hast du da ja gemacht.

Alles was auf allen Seiten gleich ist auf eine Masterseite, alles was sich ändert auf eine normale Ebene.

Das Rechteck für das Macro ist davon ausgenommen!

Gruß
Norre
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Stapelverarbeitung mit Skript mit paintshop pro 2023 Jürgen M. 4 881 08.09.2022, 09:06
Letzter Beitrag: norre
  Vektorisieren als Stapelverarbeitung littbarski 8 2.619 02.02.2015, 19:28
Letzter Beitrag: littbarski
  Stapelverarbeitung/Macros Corel Draw X5 knut99 6 3.123 20.08.2014, 22:32
Letzter Beitrag: norre
  Wie CDR in JPG per Stapelverarbeitung wandeln k7s8xe 1 1.815 26.04.2012, 09:48
Letzter Beitrag: norre