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
  Wie kann ich ein Bild schräg beschneiden? Emeraude 2 2.489 09.03.2021, 08:42
Letzter Beitrag: Emeraude
  Bild/Foto im Ausschnitt-Editor von PhotoPaint bearbeiten Karthagos 4 2.721 01.10.2019, 10:24
Letzter Beitrag: Karthagos
  Bild / ändern / invertieren?!! de_jeans 1 1.272 25.09.2019, 09:35
Letzter Beitrag: norre
  Transparentes PNG Bild ist milchig grau visionbrasil 46 11.079 23.02.2019, 17:52
Letzter Beitrag: visionbrasil
  Loch im Bild Roli 2 1.334 31.03.2018, 16:03
Letzter Beitrag: Roli
  Bild verformen canis 7 2.392 20.11.2017, 21:04
Letzter Beitrag: skifan
  Unebenheiten im Bild Luisa 11 3.272 19.04.2017, 10:10
Letzter Beitrag: swizzly
  Bild begradigen und zuschneiden Kellykiller 2 1.553 18.04.2016, 16:34
Letzter Beitrag: Kellykiller
  Schwarz/Weiß Bild und Farbe Tüfftele 10 4.002 03.06.2014, 21:29
Letzter Beitrag: Tüfftele
  Räteselhaftes Quadrat im Bild? (Photopaint X4) Karola 12 3.619 11.12.2013, 13:06
Letzter Beitrag: Karola