X4 - Speichern von JPG schneller

[norre]

BTW: Gibt es irgendwo eine Anleitung mit Tipps für diese VBA Programmierung?

Hallo Matti, wenn du dem englischen mächtig bist, schau mal hier http://coreldraw.com/forums/

Als Suchbegriff gib "GDG Macros Lesson" ein und arbeite dich von Lesson1 bis glaube Lesson36 vor

[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

[koter]

Hallo Matti,

Deine Änderungen sind schon ganz gut,
aber Du musst noch die 774 in 772 ändern.
Sonst hat deine Datei zwar die Erweitrung .tif,
es bleibt aber eine JPG-Datei.

Gruß

Koter

[Matti]

Ah, danke.

Wie ist die Nummer, wenn man die Komprimierung bei TIF nutzen will?

Habe es im Angegebenen PDF und im Forum nicht gefunden.

Gibt es irgendwo eine Übersicht der Dateiformate?

Gruß
Matti

[koter]

Hallo Matti,

Für die LZW-Komprimierung muss die Programmzeile so aussehen:

CorelScript.FileSave FName, 772, 1

Eine Liste der Formate findest Du in der CorelDraw-VBA Hilfedatei (draw_vba.chm).

Du kannst in Photopaint aber auch die CorelDraw-Konstanten verwenden. Die Programmzeile muss dann so aussehen:

CorelScript.FileSave FName, cdrTIFF, cdrCompressionLZW

Viel Spaß beim Programmieren!

Gruß

koter

[norre]

Gibt es irgendwo eine Übersicht der Dateiformate?

Hallo Matti, ich habe es zwar schon oben geschrieben, aber jetzt gibt es eine Zusammenfassung der Macrolektionen.
http://coreldraw.com/wikis/howto/gdg-mac...ssons.aspx