Text in Corel Vorlage anhand von Makro / VBA ändern

[Olaf]

Hallo und Moin,

wir möchten gerne folgendes tun.
Wir haben in einer Ebene von Corel Draw mehrere Texte. In der Corel Vorlage ist es ein Grafiktext dem wir einen Namen geben, z.B. Text1.

Nun würde ich gerne diesen Text per VBA-Befehl ändern, es soll darin ein Auftragsnummer stehen, die vorher in einer Textbox im Dialog eingegeben wird.

Leider haben meine bisherigen Versuche nicht funktioniert, vielleicht hat ja jemand eine Idee.

Gruß

Olaf

[koter]

Hallo Olaf,

das geht mit einem Einzeiler, den Du in eine Ereignisprozedur des Dialogs schreiben kannst:

Code:

Private Sub TextBox1_Change()
   ActivePage.Shapes("Text1").Text.Story = TextBox1.Text
End Sub

Wenn die Codezeile von einem anderen Modul ausgeführt werden soll, muss noch der Name des Dialogs vor den Namen der Textbox gesetzt werden.

Gruß

Koter

[Olaf]

Guten Morgen Koter,

da wäre ich wahrscheinlich nie drauf  gekommen, schön das es mit so wenig Code funktioniert. 

Ich Danke Dir

Gruß

Olaf

[Cadman96]

Moin,
falls sie so etwas oder ähnliches öfters machen kann ich ihnen als tipp geben, dass sie mal "corel draw schildergenerator" googeln.
Ich will hier jetzt keine Namen nennen oder Werbung machen.
Aber da gibt es sehr nützliche Programme für laufende Nummer und vieles andere.

Grüße
Cadman

[Olaf]

Moin Cadman,

wir brauchen dies tatsächlich nur für eine sehr spezielle Anwendung aber vielen dank für den Tipp, vielleicht wird das ja später einmal interessant für uns. Wobei es so aussieht als wenn man das Programm bzw. die Corel / VBA Vorlage nur in Verbindung mit einem Laser erwerben kann.

Gruß

Olaf