Hilfslinien bequem setzen
#11
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


Angehängte Dateien
.zip   DrawHilfslinienTest1.zip (Größe: 17,75 KB / Downloads: 1)
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Karthagos
Zitieren
#12
Thumbs Up 
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:
   
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
Zitieren
#13
Photo 
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.

   

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
Zitieren
#14
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.
   

Gruß
Norre
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Hilfslinien automatisch verschieben bei Formatwechsel OsCor 6 986 12.12.2018, 23:49
Letzter Beitrag: norre
  Voreingestellte Hilfslinien weschka 3 638 08.12.2018, 21:39
Letzter Beitrag: koter
  PhotoPaint Objekt verzerren Hilfslinien stören Karthagos 6 774 23.02.2018, 23:30
Letzter Beitrag: Karthagos
  Hilfslinien automatisieren OsCor 3 1.065 23.05.2015, 21:16
Letzter Beitrag: OsCor
  Hilfslinien auf zwei Seiten anwenden? Tüfftele 3 980 24.02.2015, 20:46
Letzter Beitrag: norre
  Hilfslinien Eichhorn 3 909 18.12.2014, 23:39
Letzter Beitrag: norre
  X6: Umrisslinie herausrechnen = transparent setzen mtemp 10 1.017 17.10.2014, 16:55
Letzter Beitrag: mvm
  Bilder so schneiden, dass man sie wieder zusammen setzen kann. duomar 9 1.640 30.09.2014, 21:06
Letzter Beitrag: Blacky
  Hilfslinien drucken Heinzi 3 3.261 06.03.2014, 21:21
Letzter Beitrag: norre
  Hilfslinien feststellen Onkel22 10 2.291 31.05.2013, 15:29
Letzter Beitrag: mvm