Hallo zusammen,
Sven hat mir den folgenden Code gepostet, jedoch klappt das nicht wenn ich die Sachen einbinde. Bekomme vom Serve auch keine Fehlermeldung.
Weiß jemand vieleicht warum
Vielen Dank schonmal und Gruß,
Nici
Sven hat mir den folgenden Code gepostet, jedoch klappt das nicht wenn ich die Sachen einbinde. Bekomme vom Serve auch keine Fehlermeldung.
Weiß jemand vieleicht warum
Code:
<%@LANGUAGE=JScript%>
<%
function graph_to_bookmark () {
//Die Daten fürs Diagramm...
aData=[
['Bush',62027782],
['Kerry',59026023],
['Nader',464211],
['Sonstige',1207562]
];
//MSWord-Application-Objekt erzeugen
oWord = new ActiveXObject('Word.Application');
//Word-Dokument öffnen
oWord.documents.open('C:\Lokales_Testsystem\MSGraph\doc.doc');
//Zeiger auf aktuelles Dokument
oDoc=oWord.ActiveDocument;
//MSGraph-Object bei Textmarke namens "marke" einfügen
oShape=oDoc.Bookmarks("marke").Range.InlineShapes.AddOLEObject('MSGraph.Chart');
//Zeiger auf MSGraph-Object
oGraph=oShape.OLEFormat.Object;
//Daten in Diagramm eintragen
with (oGraph.Application.DataSheet)
{
Cells.Delete();
for(i=0;i<aData.length;++i)
{
Cells(1, i+2).value = aData[i][0];
Cells(2, i+2).value = aData[i][1];
}
}
//Diagrammgrösse bestimmen
oGraph.width = 500;
oGraph.height = 400;
//Diagrammtyp bestimmen
oGraph.charttype = 55;
//Position der Legende bestimmen
oGraph.Legend.Position = 3;
//Titel festlegen
oGraph.HasTitle = true;
oGraph.ChartTitle.Text = 'Ergebnis US-Wahlen';
//Diagrammdaten übernehmen
oGraph.Application.Update();
//MSGraph beenden
oGraph.Application.Quit();
//Word-Dokument speichern
oDoc.Save();
//MSWord beenden
oWord.Application.Quit();
}
%>
Vielen Dank schonmal und Gruß,
Nici