Mit einem kleinen Trick können Diagramme auch in Userforms
dargestellt werden.
Benötigt wird lediglich eine PictureBox.
Das entsprechende Diagramm wird als GIF-Datei exportiert
und schließlich in der PictureBox angezeigt.
Dim Dateiname
' Um die Userform anzuzeigen
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
' Um die Userform zu schließen
Private Sub cmdOK_Click()
Kill Dateiname
Unload Me
End Sub
' Wenn UserForm angezeigt wird
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
|
Download