Praktische Corel Makros

  • Dateien

    • corel.jpg

      (17,16 kB, 276 Mal heruntergeladen, zuletzt: )

    Es gibt 10 verschiedene Typen auf der Erde.
    Die einen verstehen Binärcode und die anderen nicht.

    Einmal editiert, zuletzt von Litschi ()

  • 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 Double


    Set s = ActiveSelection.Shapes(1)
    laenge = s.Curve.Length
    flaeche = s.Curve.Area / 100


    MsgBox "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?

    Gruß Sebastian