bildfeld mit jpg -> datei wird zu gross?
04.12.2006 14:29:55
Boris
ich habe hier ein Worksheet mit einem Bildfeld, das zu öffende Bild wird aus Zelle "A2" übernommen, also z.b. "R:\..\Pictures\1.jpg"
Mit einem Button kann das Bild über folgendes Makro aktualisiert werden:
Sub Foto()
Dim Datei As String
Datei = Cells(1, 2).Value
Image1.Picture = LoadPicture(Datei)
End Sub
Wieso ist diese Excel-Datei fast 14mb groß? Ansonsten steht nichts drin, liegt das am Format .jpg? Das geladene .jpg hat eine Größe von 400kb.
Gebe ich als Bild ein .gif an, schrumpft die Datei von 14mb auf 600kb.
Da es sich um Fotos handelt, wäre es nicht sehr praktikabel die jpgs in ein anderes Format zu wandeln...
Grüße,
Boris