Ich habe ein Problem, an dem ich schon seit gestern herumknapse.
Ich möchte ein Diagramm in eine Userform einfügen.
Habe dies mit folgendem Code versucht:
Set CurrentChart = Sheets("V. Anliefermengen").ChartObjects("Chart 4").Chart
Fname = ThisWorkbook.Path & "\temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
Problem: Beim speichern als Gif wird ein Teil des Diagramms abgeschnitten. Es handelt sich, zur Erklärung, um ein Diagramm das Mengen im Laufe des Jahres ausgibt und deswegen sehr breit ist. Wenn ich das Diagramm in der Excel-Tabelle stauche, dann funktioniert das Einfügen einwandfrei. Ich benötige es aber in der Breite.
Hat jemand eine Idee, wie ich es verhindern kann, dass beim Speichern ein Teil des Charts verloren geht...
Oder hat jemand einen Vorschlag, wie ich das Problem anders lösen kann...
Ich wäre Euch sehr dankbar.
Gruß,
Jessica