Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

JPG Import hat schlechte Qualität
#1
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!
]
Gruß Achim
Jeder Mensch macht Fehler. Die Kunst liegt darin, sie zu machen, wenn keiner zuschaut.
Antworten Top
#2
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 ...
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Antworten Top
#3
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.
Gruß Achim
Jeder Mensch macht Fehler. Die Kunst liegt darin, sie zu machen, wenn keiner zuschaut.
Antworten Top
#4
Sad 
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?


.xlsb   Screenshot für Achim.xlsb (Größe: 95,2 KB / Downloads: 2)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#5
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#6
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.
Gruß Achim
Jeder Mensch macht Fehler. Die Kunst liegt darin, sie zu machen, wenn keiner zuschaut.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste