Text erstellen per Macro

[Nimbin]

Bei der Makro-Aufzeichnung wird die Erstellung von Textfeldern generell nicht unterstützt.

Das musst du schön von Hand erstellen.

Am effektivsten arbeitest du so:

1. Text normal in Corel Draw reintippen.
2. Text markieren
3. Dein Makro starten
4. Das Makro greift auf die ActiveSelection zu

z. B. setzt der code unten deinen markierten Text auf Italic

s=ActivePage.Activeselection
t=s.text
t.Story.Paragraphs.Italic =True


Alternativ kannst du im Makro auch Text erstellen, zum Beispiel so:

s = ActiveLayer.CreateArtisticText(1, 2, "Blablabla")

Den Inhalt könntest du dann über ein Textfeld in einer Userform abfragen und dann nach s schreiben, aber die Methode oben ist da besser.


Hoffe, ich habe jetzt nicht sämtliche Klarheiten beseitigt...