COREL DRAW X5 Skalierung speichern

[koter]

Hallo,

man kann auch ein Makro vorschalten.
Hier ein Beispiel:

Code:

Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
    Antwort = vbYes
    Mldg = "Skalierung 1:25 ?"
    Stil = vbYesNo + vbQuestion + vbDefaultButton1
    Titel = "Skalierung"
    Antwort = MsgBox(Mldg, Stil, Titel)
    If Antwort = vbYes Then
        With Doc
            .Unit = cdrCentimeter
            .Rulers.HUnits = cdrCentimeter
            .Rulers.VUnits = cdrCentimeter
            .WorldScale = 250
        End With
    End If
End Sub

Das Makro muss in der GlobalMacros.gms unter ThisMacroStorage platziert werden.

Gruß

Koter