hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bild_laden(bildname As String, Ort As Variant)
Dim pfad As String
pfad = ActiveWorkbook.Path
Dim chDiagramm As ChartObject
Dim shBild As Shape
Dim varBild As Variant
Application.ScreenUpdating = False
Set shBild = Sheets("Bilder").Shapes(bildname)
shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:=pfad & "\BildTemp.JPG", FilterName:="JPG" ' andere Grafikformate sind _
möglich
End With
chDiagramm.Delete
Ort.Picture = LoadPicture(pfad & "\BildTemp.JPG")
DoEvents
Kill pfad & "\BildTemp.JPG"
Set chDiagramm = Nothing
Set shBild = Nothing
End Function
das Problem ist jetzt das die Datei irgendwie grösser wird! es ist nicht viel drin in der datei aber nach dem ausführen dieser Funktion wird sie um 1.5MB oder so grösser!
Kann mir jemand weiterhelfen wie ich das anderst lösen könnte oder wie ich die Datei wieder verkleinern kann. (Speicher leeren oder so ähnlich)
vielen Dank
Gruss Toby