Gruppe
Grafik
Problem
Wie kann ich aus einer Excel-Tabelle ein Diagramm erstellen, dieses als Grafikdatei speichern, in eine UserForm laden und von dort aus drucken lassen?
StandardModule: basMain
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