VBA - Bild komprimieren
#11
Tage später...

Hallo Kosch,

ich habe nur X4, ich kann also nicht sagen ob die folgende Lösung mit X5 funktioniert.

Du schreibst, dass Du beim Exportieren bessere Ergebnisse hast.
Exportieren geht ja auch per VBA.
Ich habe Deinen Code mal daraufhin geändert:
Code:
Sub MegasellerPicture()
' Vorgehen:
'           - Bilder ins COREL PHOTO-PAINT ziehen
'           - Makro ausführen
' Ergebnis: - Foto in gewünschter Grösse
'           - Kompression eingefügt

' Konstanten (hier können Änderungen gemacht werden)
Const BILDBREITE_k As Integer = 80
Const BILDHOEHE_k As Integer = 0
Const KOMPRESSION_k As Integer = 50

' Variablen
Dim strFileName As String
Dim strPath As String
Dim strJPGFile As String
Dim strText1 As String
Dim strText2 As String
Dim flt As ExportFilter
Dim ad As Document
Dim cs As Object
Dim expflt As ExportFilter 'neu

Set ad = Application.ActiveDocument
Set cs = Application.CorelScript


' Dateiname mit Endung
strFileName = ad.FileName
' Pfadname (ohne Dateinamen)
strPath = ad.FilePath
    ' Bild ms?????_k wird erstellt
    ad.Resample (BILDBREITE_k)
    ' Bild wird exportiert mit der Endung k.jpg (Dateiname bis&mit _ bereits vorhanden)
    strJPGFile = Left(strFileName, InStr(strFileName, "_")) & "k.jpg"
    'Exportieren:
    Set expflt = ad.Export(strJPGFile, cdrJPEG)
    With expflt
        .Progressive = False
        .Optimized = False
        .SubFormat = 0
        .Compression = KOMPRESSION_k
        .Smoothing = 0
        .Finish
    End With
'End If
    
    ' Bild schliessen, damit beim erneuten Klick aufs Makro direkt das nächste Bild bearbeitet wird
    ad.Close
End Sub

ich nehme für ähnliche Aufgaben eingendlich auch, wie skifan, lieber irfanview, aber Du hast ja einen ganzen Arbeitsablauf programmiert, da muss wohl tatsächlich Photopaint ran.

Ich hoffe es hilft Dir weiter, und kommt nicht zu spät.

Gruß

Koter
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Transparentes PNG Bild ist milchig grau visionbrasil 46 649 23.02.2019, 17:52
Letzter Beitrag: visionbrasil
  Loch im Bild Roli 2 359 31.03.2018, 16:03
Letzter Beitrag: Roli
  Bild verformen canis 7 742 20.11.2017, 21:04
Letzter Beitrag: skifan
  Unebenheiten im Bild Luisa 11 995 19.04.2017, 10:10
Letzter Beitrag: swizzly
  Bild begradigen und zuschneiden Kellykiller 2 745 18.04.2016, 16:34
Letzter Beitrag: Kellykiller
  Schwarz/Weiß Bild und Farbe Tüfftele 10 2.155 03.06.2014, 21:29
Letzter Beitrag: Tüfftele
  Räteselhaftes Quadrat im Bild? (Photopaint X4) Karola 12 2.119 11.12.2013, 13:06
Letzter Beitrag: Karola
  Photopaint öffnet für jedes Bild wieder neu! schabronski 3 935 30.11.2013, 04:17
Letzter Beitrag: koter
  Bild wird nur teilweise Exportiert anorak 6 865 07.08.2013, 11:20
Letzter Beitrag: anorak
  Bild in BIld einfügen Jakob1980 8 1.245 24.04.2013, 11:57
Letzter Beitrag: morphsuite