ZitatAlles anzeigen
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#)
' Mittige Hilfslininen
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx / 2, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy / 2, 0#)
End Sub
Praktische Corel Makros
- Litschi
- Erledigt
-
-
SPONSOR
-
Ich hab auch noch ein einfaches Bastelobjekt, welches Kurvenlänge und Flächeninhalt ausgibt. Zwingend muss allerdings das Objekt in Kurven gewandelt sein.
Public Sub shapeinformation()
ActiveDocument.Unit = cdrMillimeter 'Maßeinheiten in Millimeter festlegen
Dim s As Shape 'Form festlegen
Dim laenge As Double '
Dim flaeche As DoubleSet s = ActiveSelection.Shapes(1)
laenge = s.Curve.Length
flaeche = s.Curve.Area / 100MsgBox "Kurvenlänge: " & Round(laenge, 2) & " mm" & vbCrLf & "Fläche: " & Round(flaeche, 2) & " cm²"
End Sub -
In Corel X5 gibt es ja ein Kalender-Makro, leider kann man damit keinen Jahreskalender mit gleich großen Monatsspalten erstellen.
Kennt jemand eine Alternative außßer von Hand (sic!) erstellen?
-
-
Zitat
Original von Litschi
https://coreldrawunleashed.com…-coreldrawcorel-designer/
Ah, sieht interessant aus, muss isch aber auch verdient machen.
Danke! -
-
Zitat
Original von Litschi
Nimm die 7 Tage Testversion...
Ja, hab ich gesehen, so war das nicht gemeintWill nicht nur ein Mal nen Kalender erstellen, daher kommt die Kaufversion dann schon in betracht.
Zum ausprobieren hol ich mir die Testversion.