wie kann ich ein Diagramm, dass aus Daten in einer Exceltabelle entsteht und in diesem Blatt zu finden ist, in einem Userform einbinden?
MfG
Steve
Private Sub UserForm_Activate()
Set Diagramm = Sheets("Tabelle1").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Sub
Private Sub cmdEnde_Click()
Kill Dateiname
Unload Me
End Sub