Erstmal ein großes Lob an euch, ihr habt mir mit verschiedenen Excelproblemen und bei entsprechender Recherche schon sehr weitergeholfen.
Vorab:
Googlesuche wurde wegen meinem Problem schon stundenlang benutzt
Mein Problem:
Ich erstelle momentan eine Userform, die verschiedene Charts darstellen soll. Hierzu speichere Ich das Chart aus dem Worksheet als BMP und lade die BMP-Datei dann in den entsprechenden Frame. Dieser Vorgang wird analog für verschiedenste Charts (alle haben die gleiche Form, Art und Größe, nur die Daten sind andere) durchgeführt. Die BMP- Datei ist dabei immer die gleiche, da sie nur als Zwischenspeicher dient.
Bis gestern lief das alles optimal, dieser Vorgang wird bisher ungefähr 10-15 mal ausgeführt.
Nun habe ich weitergearbeitet, den Code für die Integration eines weiteren Charts hinzugefügt, das Programm getestet und auf einmal kommt diese Fehlermeldung:
Laufzeitfehler '481': ungültiges Bild
Der Fehler tritt aber nicht, wie erwartet, bei dem neuen Codeteil auf, sondern gleich beim ersten Chart. Einige meiner Lösungsversuche haben entweder garnix gebracht oder nur bewirkt, dass der gleiche Fehler an einer anderen Stelle weiter unten im Programmtext aufgetreten ist.
Was ich bisher versucht habe:
- Programm- und Windowsneustart - kein Erfolg
- betroffene Zeile neugeschrieben - Fehler tritt an anderer Stelle wieder auf
- Größe und Name des Charts geändert - manchmal hats was gebracht, manchmal nicht
Code: Jeweils die dritte Zeile ist die, welche beim debugging markiert wird
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
Sheets("AUSW_Sparte").ChartObjects("QKZ").Chart.Export Filename:=Dateiname, FilterName:="GIF"
KZ_Sparte_QKZ.Picture = LoadPicture(Dateiname)
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.bmp"
Sheets("AUSW_Sparte").ChartObjects("PPM").Chart.Export Filename:=Dateiname, FilterName:="BMP"
KZ_Sparte_PPM.Picture = LoadPicture(Dateiname)
Weiß einer woran das liegt, wo die Ursache liegt, wo ich diese zu suchen habe, oder hat irgendjemand andere Vorschläge um dieses Problem zu beheben?PS: Adins, etc. gibt es meines Wissens keine zusätzlichen.