JScript mit Word und MSGraph

Status
Nicht offen für weitere Antworten.

Nici

Erfahrenes Mitglied
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
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
 
Status
Nicht offen für weitere Antworten.

Neue Beiträge

Zurück