JPG Import hat schlechte Qualität

[maine-coon]

Ich habe eine Excel Datei erstellt.
Anschließend einen Screenshot gemacht und über STRG+V in IrfanView kopiert.

Nun noch einen sinnvollen Rahmen mit der richtigen Proportion aufgezogen, ausgeschnitten und als JPG gespeichert.

Beim anschließenden Aufrufen in einem Excel-VBA Programm
ist das Bild in einer nicht gerade tollen Qualität zu sehen.

Am VBA Code kann es ja wohl kaum liegen.
Was kann ich tun, damit die eingefügte JPG eine bessere Qualität hat?
Oben im Bild der screenshot aus der Excel Datei, unten die eingefügte Datei über den VBA Code.
Man sieht eine deutliche Verschlechterung.

Code:

Private Sub CommandButton3_Click() ' DIN Programmierung anzeigen
       StrPfad = ActiveWorkbook.Path & "\toolinfo\"
       strSketch = "Gew_DIN_M08" & ".jpg"
       Set fs = CreateObject("Scripting.FileSystemObject")
       If fs.fileexists(StrPfad & strSketch) = True Then
           Me.Zeichnungen.Picture = LoadPicture(StrPfad & strSketch)
           With Me.Zeichnungen
               .Left = 0
               .Top = 0
               .Height = 344
               .Width = 574
               .Visible = True
           End With
         Else
           Exit Sub
       End If
End Sub

[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

[Kl@us-M.]

Hi Achim,

warum der Umweg über Irfan? Hat das einen besonderen Grund? Du kannst doch den Bereich direkt als Bild kopieren und in ein anderes Blatt / eine andere Mappe kopieren ...

[maine-coon]

In meiner Datei muss das Bild in der UF exakt passend eingeblendet werden.
Ich muss dieses Bild als Datei einbeziehen.
Es ist mir klar, dass jede Speicherung, jeder Umweg Verluste mit sich zieht.

[WillWissen]

Hi Achim,

schau dir doch mal die Datei an. Ich habe auf drei verschiedene Arten jeweils einen SCR-shot eingefügt. Probiere doch mal, diese Bilddateien aus dem XL-Sheet heraus bei dir zu speichern (wenn's  nicht hinhaut, lade ich dir die drei Originale hoch) und mit deinem Makro in die UF einzufügen. Hast du dann auch wieder einen erkennbaren Verlust?


  Screenshot für Achim.xlsb (Größe: 95,2 KB / Downloads: 2)

[schauan]

Hallo Achim,

Du kannst, wie gesagt, einen Bereich als Bild kopieren. Das fügst Du dann in ein Grafikprogramm ein und speicherst es. Das wird meist deutlich besser als ein Screenshot.

[maine-coon]

Ja, stimmt.
Wenn ich den Bereich über STRG+C in ein Grafikprogramm übergebe und speichere,
wird es etwas besser.

Ich hatte mal in meinem VBA Code die Extension JPG gegen PNG getauscht.
Aber dann wird nichts angezeigt.
Dafür geht mein Code nicht.

Ich dachte, dass PNG eine bessere Qualität ist, als JPG.

Na erstmal vielen Dank für die Hinweise......muss mal sehen was ich mache.