Wie kann ich ein in Excel erstelltes Diagramm über ein Makro im Formular (Userform) anzeigen ?
dieser Sourcecode erzeugt ein Diagramm mit den Werten von A1:C3 und zeigt es in Userform an.weiters könnte man es danach über die Userform drucken
Quelle : nicht von mir sondern vom Archiv-Herber.de
Sub DiagrammInUserForm()
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets(„Tabelle1“).Range(„A1:C3“), _
PlotBy:=xlRows
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
End Sub