Bildschärfe

Forumthread: Bildschärfe

Bildschärfe

04.12.2024 18:10:33

Wolfgang

Hallo,
ich habe das Problem, dass beim Laden in ein IMAGE das geladene Bild unschärfer ist al das Original.

Open strpath + "\" + b_dat + ".jpg" For Input As #1
bildname = strpath + "\" + b_dat + ".jpg"
Sheets("Info").Image1.Picture = LoadPicture(bildname)
Close #1

Weiß jemand von euch, woran das liegt bzw. was man dagegen machen kann?

Vielen Dank!
Wolfgang

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bildschärfe

04.12.2024 18:32:57

daniel
AW: Bildschärfe

05.12.2024 07:30:05

Wolfgang
AW: Bildschärfe

05.12.2024 09:09:49

Oberschlumpf
AW: Bildschärfe

05.12.2024 10:22:18

Wolfgang
AW: Bildschärfe

05.12.2024 10:56:10

Wolfgang
AW: Bildschärfe

04.12.2024 20:46:54

Uduuh
AW: Bildschärfe

05.12.2024 10:34:29

Ulf
AW: Bildschärfe

09.12.2024 18:40:30

Wolfgang

AW: Bildschärfe

04.12.2024 18:32:57

daniel

Hi
ich bin mir nicht sicher, ob es das richtige ist, aber verändere mal in DATEI - OPTIONEN - ERWEITERT - BILDGRÖßE UND QUALITÄT die Einstellungen.
Setze den Haken "Bilder in Datei nicht komprimieren" oder verändere die Standardauflösung.

eine andere Überlegung wäre, ob du den Bildtyp richtig gewählt hast.
hast du ein Foto (sehr viele unterschiedliche Farben, Flächen mit einheitlicher Farbe sehr klein (jedes Pixel hat eine andere Farbe als sein Nachbar)
oder eine Grafik (wenige verschiedene Farben, große Flächen mit einheitlichen Farben)?

solltest du eine Grafik haben, dann wäre es sinnvoller, diese als GIF zu speichern. JPG ist für Fotos gut, für Grafiken aber ungeeignet.

Gruß Daniel

AW: Bildschärfe

05.12.2024 07:30:05

Wolfgang

Hallo Uduuh,
stimmt, aber es funktioniert auch so.

Hallo Daniel,
danke, aber das habe ich schon alles versucht und das Bild ist ein Foto ...

AW: Bildschärfe

05.12.2024 09:09:49

Oberschlumpf

Hi Wolfgang,

ich frag mich auch, wieso du die Open...For Input-Codezeile benötigst? ...es reicht eigtl nur der = LoadPicture(...)-Befehl, um einem Img-Objekt eine Bilddatei zuzuweisen.
Uduhh hast du die Frage noch nicht beantwortet, vllt antwortest du ja mir?

Ciao
Thorsten

AW: Bildschärfe

05.12.2024 10:22:18

Wolfgang

Thorsten, du hast Recht. Ich habe den Code korrigiert. Danke!

AW: Bildschärfe

05.12.2024 10:56:10

Wolfgang

Ich habe jetzt die Fotos in das emf-Format konvertiert - das bringt das beste Ergebnis (noch nicht ganz wie das Original), aber die Bilder brauchen natürlich mehr Speicherplatz.
Damit kann ich jetzt leben. (PNG-Format wird nicht akzeptiert, gif ist gleich schlecht wie jpg)

AW: Bildschärfe

04.12.2024 20:46:54

Uduuh

Hallo,
was soll

Open strpath + "\" + b_dat + ".jpg" For Input As #1

???

Ganz nebenbei werden Strings in VBA mit & verknüpft und nicht mit +
Also

bildname = strpath & "\" & b_dat & ".jpg"

Gruß aus'm Pott
Udo

AW: Bildschärfe

05.12.2024 10:34:29

Ulf

Hi Wolfgang,
lies mal die Bildgrösse aus und lass das/die Bild(er) in Originalgrösse anzeigen, wenn gezoomt und/oder vergrößert folgt Verlust



Public Sub bildLesen()

    Dim strBild As String

    Dim objPicture As IPictureDisp

    Dim sngWidth As Single, sngHeight As Single

    Dim sngProp As Single

    'Auflösung/Skalierung Monitor etc. TESTEN ZUR OPTIMIERUNG

    sngProp = 35

    strBild = "c:\users\dummy\0815.jpg"

    Set objPicture = LoadPicture(strBild)

    sngWidth = objPicture.Width \ sngProp

    sngHeight = objPicture.Height \ sngProp

    Set objPicture = Nothing

    With ThisWorkbook.Worksheets(1).Image1

        .Picture = LoadPicture(strBild)

        .Width = sngWidth

        .Height = sngHeight

    End With

End Sub

hth
Ulf

AW: Bildschärfe

09.12.2024 18:40:30

Wolfgang

Hallo Ulf,
das Bild wird in Originalgröße geladen.

Forumthread: Bildschärfe

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread