X4 - Speichern von JPG schneller
#11
Matti schrieb: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
Zitieren
#12
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
Zitieren
#13
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
Zitieren
#14
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
Zitieren
#15
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
Zitieren
#16
Matti schrieb: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
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Verzeren-Modus schneller erreichen Karthagos 0 50 12.03.2024, 20:29
Letzter Beitrag: Karthagos
  Speicherdialog beim Speichern einer jpg-Datei verhindern Karthagos 3 259 03.11.2023, 16:09
Letzter Beitrag: koter
  jpg speichern Karthagos 2 676 12.08.2022, 19:16
Letzter Beitrag: Karthagos
  speichern nicht möglich vallentin 3 1.282 25.09.2020, 08:33
Letzter Beitrag: Unkraut
  Pinsel in PHOTO-PAINT speichern & exportieren Immograph 3 1.763 13.04.2018, 07:20
Letzter Beitrag: Unkraut
  PhotoPaint X5 - Speichern als Jpg nicht mehr möglich Friedhelm Peters 10 8.336 24.11.2016, 16:01
Letzter Beitrag: mvm
  Beschneidungspfad speichern? Luka1985 16 3.741 11.09.2015, 23:09
Letzter Beitrag: koter
  Eigenschaften beim Speichern weschka 5 1.954 10.04.2015, 13:38
Letzter Beitrag: mvm
  Objekt einzeln speichern (quasi als "Stempel") anorak 10 3.442 19.07.2013, 15:07
Letzter Beitrag: swizzly
  Nicht genügend Arbeitsspeicher beim speichern Andy20188 4 2.819 02.05.2013, 22:03
Letzter Beitrag: mvm