Hilfslinien bequem setzen

Hilfslinien bequem setzen - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Hilfslinien bequem setzen (/showthread.php?tid=37741)

Seiten: 1 2

RE: Hilfslinien bequem setzen - koter - 20.03.2021

Hallo Günther,

meine Software und meine Fähigkeiten sind schon etwas veraltet.
Ich habe eine Excel-Datei angehängt. Das Makro in der Datei erstellt
Hilfslinien im aktuell geöffneten CorelDraw-Dokument:

[Bild: hilfslinienexcelsuk6v.gif]

Du musst Deine Version in den Code eintragen. Wenn ich richtig gezählt habe, ist das Version 21.
Der Code sollte dann also so aussehen:

Code:
Sub VerbindungCDrawAn()

    Dim Version As String

    Version = "21"

    Set CDraw = GetObject("", "CorelDraw.Application." & Version)

    CDraw.ActiveDocument.Unit = 3

End Sub

Ich habe die Datei mit Excel 2013 erstellt und mit CD X7 getestet.
Wenn die Datei mit Deinen Versionen funktioniert, können wir sie Deinem Arbeitsablauf anpassen.

Gruß

Koter

RE: Hilfslinien bequem setzen - Karthagos - 20.03.2021

Hallo Koter,

Deine Software mag etwas veraltet sein, Deine Fähigkeiten bestimmt nicht. Wenn hier etwas veraltet ist, dann bin ich das (knapp 72 Lenze) Smile

Das Makro funktioniert einwandfrei, hat auf Anhieb geklappt und ist ungemein hilfreich. Ich konnte es gleich gebrauchen und anwenden, spart ungemein Zeit. Hier das Ergebnis:
[attachment=21197]
Vor allem, wenn man etwas an den Hilfslinienpositionen ändern will oder muss, ist das in ggf. viel Excel schneller erledigt als in Corel.
Herzlichen Dank und ein schönes Wochenende

RE: Hilfslinien bequem setzen - Pixel Punk - 11.04.2021

Nochmal für alle Interessierten: hier ein Script für 3 mm Anschnitt. Man kann es auch selbst anpassen bzw. umschreiben. Ist nicht sonderlich komplizieret.

[attachment=21209]

Public Sub Beschnitt_3mm()

' Hilfslinien im Abstand von 3mm
' von den Rändern des Dokuments entfernt
' erzeugen, sowie in der Dokumentenmitte
'
' Litschi.de

Dim s As Shape ' Variablen deklarieren
Dim sx As Double, sy As Double
Const Abstand As Double = 0.11811 ' Rand 3mm festlegen

ActivePage.GetSize sx, sy ' Aktuelle Seitengröße merken

' Hilfslinien im Abstand von den Dokumenträndern zeichnen
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(Abstand, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, Abstand, 0#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx - Abstand, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy - Abstand, 0#)

Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 0#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy, 0#)

End Sub

RE: Hilfslinien bequem setzen - norre - 11.04.2021

Hallo,

für den Randanschnitt ist neben Anderen auch schon was in Corel integriert.
So werden die Hilfslinien automatisch auf den im Layout eingestellten Randanschnitt gelegt.
Zu finden in den Optionen, schneller geht es mit einem doppelklick auf die Lineale.
[attachment=21210]

Gruß
Norre