X4 - Speichern von JPG schneller

[Matti]

Hi,

ich blick es noch nicht so ganz und bräuchte nochmal Eure Hilfe.

Um das ganze für TIF zu machen, wäre folgendes richtig?

Code:

Sub tifspeichern()
    FName = ActiveDocument.FullFileName
    FName = Left(FName, Len(FName) - 3) & "tif"
    CorelScript.FileSave FName, 774, 0
End Sub

Danke für Infos.

Gruß
Matti