Corel DRAW X5

[S-Boxer]

Hallo Boxer,

Ich habe eine wichtige Zeile vergessen:
ActiveDocument.Unit = cdrMillimeter
Füge sie nach der Zeile Dim Schriftart As String ein.

Nachtrag:
Das Makro arbeitet ohne diese Zeile mit der falschen Maßeiheit.
Das Ergebnis ist dadurch viel zu groß und liegt weit außerhalb der Seite.

Gruß

Koter

Hallo Koter, jetzt geht es und alles ist in bester Position und Ordnung.
Ich bin Dir sehr dankbar, daß Du Dich meinem Problem angenommen hast.

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

Litschi bin dafür genauso dankbar und alle haben was davon die es brauchen können.

Ich bin froh daß es Foren wie diese gibt. dafür kenne ich mich wieder mit der Grafik
Erstellung aus, oder mit CAD und 3D Druckerstellung. man kann auch nicht alles wissen!

Gruß S-Boxer

[koter]

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

[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?

[koter]

hallo Boxer,

Der Abschnitt der mit With NrText beginnt und mit
End With endet steht unter schon unter 'Nummern:
im Quelltext.

Die Zeilen:

 .Text.Story.Size = 12 ' Größe
 .Text.Story.Bold = False ' Fett
 .Text.Story.Italic = False ' Kursiv

kannst Du hinzufügen, wenn Du eine der Formatierungen verwenden willst.
Achte auf die Punkte am Anfang dieser Zeilen. Ohne diese funktioniert es nicht.

Gruß

Koter

[S-Boxer]

hallo Boxer,

Der Abschnitt der mit With NrText beginnt und mit
End With endet steht unter schon unter 'Nummern:
im Quelltext.

Die Zeilen:

 .Text.Story.Size = 12 ' Größe
 .Text.Story.Bold = False ' Fett
 .Text.Story.Italic = False ' Kursiv

kannst Du hinzufügen, wenn Du eine der Formatierungen verwenden willst.
Achte auf die Punkte am Anfang dieser Zeilen. Ohne diese funktioniert es nicht.

Gruß

Koter

Guten Morgen Koter,

hat prima funktioniert!

Danke nochmals herzlichst