in CorelDraw Bitmap-Namen mit ausdrucken ?

[koter]

Hallo Stefan,

Etwas umständlich, aber ok, vermutlich geht's halt nicht schneller.

Doch, wenn man Norres Vorschlag mit einem VBA-Dreizeiler umsetzt:

Code:

Sub beschriften()
    On Error Resume Next
    ActiveDocument.Unit = cdrMillimeter
    ActiveLayer.CreateArtisticText ActiveShape.CenterX, ActiveShape.TopY + 2, ActiveShape.Name, , , "Cambria", 18, , , , cdrCenterAlignment
End Sub

Wenn die Bilder über den Import-Dialog importiert wurden funktioniert es so.
Wenn Sie einfach per Drag and Drop aus dem Explorer gezogen wurden geht es nicht.
Die Bilder haben dann nur den Namen „Bitmap“.

Gruß

Koter