Text in Corel Vorlage anhand von Makro / VBA ändern
#1
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren
#2
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

[Bild: auftragsnummerp3kjn.gif]

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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Olaf
Zitieren
#3
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren
#4
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
[-] 1 Benutzer bedankt sich bei Cadman96 für diesen Beitrag:
  • Olaf
Zitieren
#5
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel Draw umstellen Schrift von pt in mm Tony Platte 1 255 12.08.2022, 00:03
Letzter Beitrag: miss_marple
  Corel Draw Himmel 4 480 24.06.2022, 20:52
Letzter Beitrag: Himmel
Photo Kreis erhält nach Export über Makro als DXF sehr viele Knotenpunkte Olaf 4 333 22.06.2022, 08:34
Letzter Beitrag: Olaf
  Corel Draw X7 Missi B 2 348 15.06.2022, 14:34
Letzter Beitrag: Missi B
Wink Corel Draw X7 Farbpalette einstellen ms8ms 4 525 06.05.2022, 14:31
Letzter Beitrag: ms8ms
  Kurven wieder in Text umwandeln Karthagos 18 1.125 30.04.2022, 12:24
Letzter Beitrag: koter
  Corel Version waynered100 2 353 29.04.2022, 14:26
Letzter Beitrag: waynered100
  Corel 2018 Export in jpg oder png OsCor 2 564 02.02.2022, 21:50
Letzter Beitrag: OsCor
  Menuefarbe von Corel Draw Graphics Suite X6 pitnet 10 1.329 02.02.2022, 16:02
Letzter Beitrag: Örwin
  Corel und Apple Fido 3 632 02.01.2022, 09:56
Letzter Beitrag: Fido