Wie Dateipfad in CorelDraw 11 anzeigen?

[Helmut Tarnick]

Hallo Ihr,

möchte den vollständigen Pfad der geöffneten Corel-Datei in die gerade
geöffnete Grafik einfügen; wie ist es möglich, sich den kompletten Pfad
incl. Datei anzeigen zu lassen, damit man ihn kopieren kann? Danke und

Gruß Helmut

[Lupus Goebel]

Tach,

Post by Helmut Tarnick
Hallo Ihr,
möchte den vollständigen Pfad der geöffneten Corel-Datei in die gerade
geöffnete Grafik einfügen; wie ist es möglich, sich den kompletten Pfad
incl. Datei anzeigen zu lassen, damit man ihn kopieren kann? Danke und

Per VBA wüsste ich eine Lösung:

Function PfadLesen()
Dim strPfad As String
Dim kt As Shape

strPfad = ActiveDocument.FilePath & ActiveDocument.FileName

Set kt = ActiveLayer.CreateArtisticText(4, 6, strPfad)
kt.Text.FontProperties.Name = "Arial"
kt.Text.FontProperties.Size = 12
kt.Text.AlignProperties.Alignment = cdrRightAlignment
kt.Fill.UniformColor.CMYKAssign 0, 0, 0, 20

End Function

[Helmut Tarnick]

Hallo Lupus,

was muß ich denn tun, um dieses Progrämmchen zum Laufen zu bringen? habe
leider von VBA keine Ahnung, weiß nur, daß es da eine Runtime gibt, die
sicher installiert sein muß, oder? Und wie geht es dann weiter? Danke
erstmal und

Gruß Helmut