Beschneidungspfad speichern?

[koter]

Hallo Luka,

ImageMagick! Das habe ich bisher wohl zu unrecht ignoriert. Damit kann man ja tatsächlich Pfade in JPGs unterbringen.

Wenn man ImageMagick mit einem kleinen Makro mischt, geht das sogar auf Knopfdruck:



Falls Dich das interessiert, hier der Code:

Code:

Sub Start()
    Dim PSDName As String, JPGName As String
    Dim IMagic As Object
    Set IMagic = CreateObject("ImageMagickObject.MagickImage.1")
    PSDName = ActiveDocument.FullFileName
    JPGName = Left(PSDName, Len(PSDName) - 3) & "jpg"
    PSDName = Left(PSDName, Len(PSDName) - 3) & "psd"
    ActiveDocument.SaveAs(PSDName, cdrPSD).Finish
    IMagic.convert PSDName, JPGName
    Kill PSDName
    Set IMagic = Nothing
End Sub

Jetzt würde mich noch interessieren, was man mit so einem JPG machen kann, außer es mit PS zu öffnen. Dafür würde es ja genügen, die Datei als PSD zu speichern.

Gruß

Koter