Hallo!

Ich möchte ein Diagramm aus einer Exceldatei in meinem Programm anzeigen lassen. Eine ganze Exceldatei kann ich schon anzeigen, aber nur das Diagramm müsste doch auch gehen oder?

habs auf folgende art und weise probiert:

Dim exceltest As Excel.Application
Dim wbtest As Excel.Workbook
Dim wstest As Excel.Chart




exceltest = CreateObject("Excel.Application")


wbtest = exceltest.Workbooks.Open("h:\Diagramm.xls")

wstest = wbtest.ActiveChart


wstest.Visible = True

bekomme eine comexception mit dem fehler Ausnahme von HRESULT: 0x800A03EC

Kann mir jemand helfen?

Danke

mfg
kirni99

Ich kenne zwar die Bedeutung der Fehlernummer nicht, wollte aber anfügen, dass ActiveChart nur funktioniert, wenn ein Diagramm ausgewählt ist.

Auf Diagramme, die in Tabellenblättern eingebettet sind, kann man hiermit zugreifen:


Auf Diagramme, die eigene Tabellenblätter darstellen, hiermit:


Statt "Index" kann man jeweils die Nummer bzw. den Namen angeben.