Corel DRAW X5
#11
(14.04.2024, 22:40)koter schrieb: 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

Betriebssystem / Grafik-Software: Win10Pro/CorelDrawX5
Zitieren
#12
hallo Boxer,

(14.04.2024, 23:10)S-Boxer schrieb: 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
Zitieren
#13
(14.04.2024, 23:35)koter schrieb: hallo Boxer,

(14.04.2024, 23:10)S-Boxer schrieb: 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?

Betriebssystem / Grafik-Software: Win10Pro/CorelDrawX5
Zitieren
#14
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
Zitieren
#15
(15.04.2024, 05:26)koter schrieb: 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

Betriebssystem / Grafik-Software: Win10Pro/CorelDrawX5
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel Draw X7 - Lohnt eine "kleine" aktuellere Version anorak 2 465 12.04.2024, 19:52
Letzter Beitrag: anorak
  Programme COREL DRAW und Photopaint starten nicht mehr (Fehler 38) Neudi 2 203 27.03.2024, 09:02
Letzter Beitrag: Neudi
  Corel Draw - Schrift Quicksand nach Umwandeln in Kurven nicht plottbar annalotta 1 205 15.02.2024, 13:57
Letzter Beitrag: Piet
  Corel SE 21 - verknüpfte Bilder, merkwürdiges Verhalten lauren 2 233 15.02.2024, 10:47
Letzter Beitrag: lauren
  Corel Draw 2019 Text vertikal nilaschmi 5 291 14.02.2024, 17:53
Letzter Beitrag: skifan
  Corel Draw 2019 / Windows 11 vermutlich zu "alt" Emeraude 1 327 25.01.2024, 19:09
Letzter Beitrag: koter
  Corel Draw 2023 Himmel 1 830 20.01.2024, 11:21
Letzter Beitrag: T3P4
  Graphics Suite 2022/2023 Andockfenster Corel Connect Lenka 2 372 13.12.2023, 09:26
Letzter Beitrag: Lenka
  Fehler in neueren Corel-Versionen Karthagos 2 433 06.12.2023, 09:54
Letzter Beitrag: Karthagos
  Corel 2019 - Hilfe beim Kauf adelmann-grafen 8 1.900 05.12.2023, 10:21
Letzter Beitrag: Piet