Hat einer ne Idee was falsch ist! Es kommt der Laufzeitfehler "424" Objekt erforderlich, schon in der ersten Zeile! Sitze schon ne Weile und komme nicht weiter
Set cht = Chart.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("Diagrammdaten").Range("A1:E5"), PlotBy:=xlRows
cht.Parent.Width = imgChart.Width
cht.Parent.Height = imgChart.Height
cht.Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
'.AutoSize = True
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("DCVDQ42005ASVT12").Activate
Danke im Voraus!
MFG Monty