PDA

Vollständige Version anzeigen : exportieren als PSD


AndreasRoe
18.07.2007, 09:31
Hallo.

Ich habe ca. 100 CorelDraw-Dateien (mit Clipart-Motiven) in einem Ordner.
Möchte diese Clipart-Motive als PSD-Dateien exportieren.
Das Script sollte den jeweiligen cdr-Dateinamen auslesen und als psd-Datei abspeichern.


In etwa so:
#########################################
Dim expflt As ExportFilter
ActivePage.Shapes.All.CreateSelection
Set expflt = ActiveDocument.ExportBitmap("C:\01_Fueller_2007\Cdr 1\100b.psd", cdrPSD, cdrSelection, cdrCMYKColorImage, 564, 971, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
expflt.Finish
ActiveDocument.Close
#########################################


Mit freundlichem Gruß
Andreas

AndreasRoe
18.07.2007, 11:58
... so gemacht

Dim docname As String
Dim dateiname As String
dateiname = ActiveDocument.Name
'Die letzten 4 Zeichen sind der Typ (.psd)
docname = Left(dateiname, Len(dateiname) - 4)
dateiname = docname & ".psd"
Dim expflt As ExportFilter
ActivePage.Shapes.All.CreateSelection
Set expflt = ActiveDocument.ExportBitmap("C:\01_Fueller_2007\Cdr 5\" & dateiname, cdrPSD, cdrSelection, cdrCMYKColorImage, , , 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
expflt.Finish
ActiveDocument.Close