Wie kann ich aus den Werten in einer Exeltabelle auf einem Formular in VBA eine Grafik anzeigen lassen?

... komplette Frage anzeigen

1 Antwort

Die Frage fand ich interessant. Über google kommt hier bspw. eine Lösung
http://www.herber.de/forum/archiv/800to804/800885_Diagramm_in_UserForm_einfuegen.html

s. Datei 3roland3.xls

Dort wird das Diagramm allerdings nur temporär erzeugt. Mit etwas Abwandlung kann auch ein bestehendes Verwendet werden. Auf der Userform brauchst Du eine "Anzeige", das Bildsymbol als Steuerelement

Sub DiagrammInUserForm()
Application.ScreenUpdating = False
Charts(1).Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
.AutoSize = False
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Es funktioniert allerdings nur, wenn das Diagramm als eigenes Tabellenblatt hinterlegt ist.

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?