in CorelDraw Bitmap-Namen mit ausdrucken ?

[StefanTX252]

Hallo an Alle,

ich habe jetzt schon diverse Optionen durchgeklickt u. wollte mal fragen, ob das überhaupt geht:

Kann man in CorelDrawX4 (oder höher) die Dateinamen von importierten Bitmaps mit ausdrucken lassen ?

Als Bsp. habe ich in CorelDraw ein leeres Blatt geöffnet.
Dort importiere ich 5 Bilder -> "vti-01.cpt, vti-02.cpt... vti-05.cpt".
Nach Anordnen der Bitmaps soll die Seite ausgedruckt werden mit den Bildnamen, die jeweils über dem Pic stehen sollen.

Ist das irgendwie möglich ?

Vielen Dank schonmal wenn Ihr da evtl. eine Lösung hättet...

[koter]

Hallo Stefan,

vielleicht kann Dir der Oberon Thumbnailer von Alex Vakulenko helfen:



(Getestet mit X6)

Gruß

Koter

[StefanTX252]

Hi Koter,

Danke für den Tip.
Die Idee mit den Thumbnails war schonmal ganz gut, bloß brauche ich für jedes Bild jeweils andere Größen (BxH).
Manche Schaubilder muß ich bis zu den Seitenrändern skalieren, damit man noch was erkennen kann, bei anderen reicht Postkartenformat (oder kleiner).
Entsprechend hat die zu druckende DinA4-Seite mal 6, mal 4 oder nur 2 Bitmaps.

Anordnen u. Skalieren geht in CorelDraw recht fix, nur bei 80 Bildern eben 80mal den Bildnamen eintippen ist sehr umständlich.
Da wünschte ich mir eine Option, die die Namen automatisch mitdruckt, aber scheint es dann wohl nicht zu geben (?)

[norre]

Hallo,
du könntest den Namen aus dem Objektmanager kopieren, aber ob das schneller als tippen ist?

[StefanTX252]

Ich hab's jetzt erstmal so gemacht:

Die Bildnamen (= Dateinamen) bringe ich mit 2 klicks in eine Textdatei, von dort in CorelDraw reinkopieren, in Grafiktext konvertieren u. dann kann ich die einzelnen Bildnamen übers jeweilige Bild schieben.
Etwas umständlich, aber ok, vermutlich geht's halt nicht schneller.

[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

[norre]

Hallo,
noch ne Idee, falls dir der Text als Pixel im Bild langt?????
Mit Irfanview kannst du mit der Batchkonvertierung das machen.
-Datei--Batchkonvertierung,
-Haken bei Spezialoptionen-->Setzen
-Rahmen hinzufügen-->Optionen
-Topside gibst du deinen Wert ein um den das Bild oben für den Text erweitert werden soll. Alle anderen auf 0 setzen, Canvas Color auf weiß setzen.
-OK
-Text einfügen-->Optionen
-oben legst du die Kordinaten für den Text fest, im Fenster Text gibst du $F ein. Unten noch die Schrift usw. auswählen.
-OK
jetzt noch im ersten Fenster die Dateien hinzufügen und zur Sicherheit ein anderes Ausgabeverzeichnis und Namen wählen.

Ah, das hat sich überschnitten, Koters Macrolösung ist natürlich der beste Weg

[StefanTX252]

Mit IrfanView habe ich noch nicht gearbeitet, aber in der Tat scheint mir die Lösung von Koter auch eleganter.
Ich muß das morgen mal in Ruhe ausprobieren, wie das mit VBA/Macro funktioniert... (hatte ich bislang noch nicht genutzt).

VIELEN DANK erstmal Euch beiden für die schnelle & sehr gute Hilfe :daumen: