Corel DRAW X5

[S-Boxer]

hallo Boxer,

Etwas kleines noch, die Schriftgröße und den Schriftstile, daß kann man ja
über die Zeichenformatierung machen oder?

Ja, Du kannst es aber auch ins Makro packen:

Code:

With NrText
   .Text.Story.Font = Schriftart
   .Text.Story.Size = 12 ' Größe
   .Text.Story.Bold = False ' Fett
   .Text.Story.Italic = False ' Kursiv
   .Text.Story.Alignment = cdrCenterAlignment
   .CenterX = REck.CenterX
   .CenterY = REck.CenterY
   .OrderToBack
   .Name = "Nr " & Nr
End With

Bei Fett und Kursiv musst Du False durch True ersetzen.

Bei einer nachträglichen manuellen Änderung
müsstest Du die Ausrichtung auch manuell anpassen.

Gruß

Koter

Fügt man das dann zwischen Active Document.Unit = cdrMillimeter
und Optimization = True ein?