COREL DRAW X5 Skalierung speichern

[rkc@derriedel]

Nachdem wir lange Zeit mit Corel Draw 12 gearbeitet haben, haben wir erst ein X7 gekauft. Nachdem wir feststellten, daß X5 Corel 12 in der Bedienung fast gleich war ein X5. Nun tritt folgendes Problem auf. Arbeitsbereich - Dokument-Hilfslinien---Lineale - wollen wir die Skalierung bearbeiten und umstellen von 1:1 cm auf 1:25 cm.
Für das aktuelle Dokument gelingt uns das.
Als Voreinstellung für Corel Draw X5 als ganzes schaffen wir es nicht. Das Speichern einer solchen Einstellung war bisher mit Dokument
Als Standard für neue Dokumente möglich. Wir bringen es nicht hin. Wisst Ihr Rat.

[norre]

Hallo rkc@derriedel,
willkommen im Forum.

Nur mal vorab:
Du hast die X5 Vollversion und schon alle Updates dafür installiert?
Dann solltest du die Versionsnummer 15.2.0.695 haben.

Bei mir geht das auch nicht, dass ich die Skalierung als Standard für neue Dokumente speichern kann.

Du könntest dein Dokument mit skalierung einrichten und das dann als Vorlage speichern, dann wird die skalierung nämlich übernommen.
Du müßtest dann bei einem neuen Dokument "Neu aus Vorlage" auswählen

Oder
du kannst über Extras-->Anpassung-->Befehle gehen, rechts oben im Dropdownmenü wählst du Ansicht. Nun kannst du darunter den Befehl "Zeichenskala" auf eine Befehlsleiste ziehen oder auch einfach auf die Arbeitsfläche und hast so alle Skalierungen sofort bei der Hand. Leider ist 1:25 nicht dabei, also doch wieder über Lineale einrichten :icon_troest:

[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

[rkc@derriedel]

Hast prima geklappt. Danke