Sven Mintel
Mitglied
Ich hab gefunden, wie es geht... hatte wohl Tomaten auf den Augen
Mann muss das Object der InlineShapes-Collection des Bookmark-Ranges hinzufügen, dann erscheint es auch dort.
Hier mal nen Beispiel mit den US-Wahlergebnissen
Mann muss das Object der InlineShapes-Collection des Bookmark-Ranges hinzufügen, dann erscheint es auch dort.
Hier mal nen Beispiel mit den US-Wahlergebnissen
Code:
//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:/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();