Text erstellen per Macro

[Kukulcan]

Kann mir jemand sagen, wie ich einen Text per Macro erstelle? Wenn ich ein Macro aufzeichne, Textfeld erstelle und Text tippe, dann sagt er die Aufzeihnung dieser Funktion wird nicht unterstützt.

Ich kann zwar einen Text importieren, aber wie kann ich ihn dann formatieren? Ausrichtung, Schriftart, Größe etc.

Danke

[surfy]

Hi,

das geht in meiner Version 12 auch nicht. Scheinbar ist der Bereich ausgenommen.

Gruß
surfy

[Unkraut]

Hallo Surfy,
falls Dich Macros ernsthaft interessieren, suche mal auf englisch sprachlichen Webseiten. Durch ein paar kleine Anpassungen und durch die entsprechenden VBS-Module soll es angeblich doch gehen.
Freundliche Grüße vom Unkraut

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