Я создаю в Word небольшую табличку, а затем мне надо на её основе сделать график. Я нашел как добавить график, но код все время крашится с ошибкой в позиции
w := wrd.ActiveDocument.Shapes.AddOLEObject('MSGraph.Chart.8');
и график создается, но создается не на основе данных в таблице. Как сделать правильно?
procedure TForm1.btn2Click(Sender: TObject);
var
wrd, w, Child: OleVariant;
i: Integer;
StartRange: Variant;
begin
wrd:=CoWordApplication.Create;
wrd.Visible:=true;
wrd.Documents.Add;
wrd.ActiveDocument.Tables.Add(wrd.ActiveDocument.Range(0, 0), 5, 2);
wrd.Visible := True;
For i:=1 to 5 do
begin
wrd.ActiveDocument.Tables.Item(1).Cell(i,1).Range.Text := i;
wrd.ActiveDocument.Tables.Item(1).Cell(i,2).Range.Text := i*i;
end;
w:=wrd.ActiveDocument.Shapes.AddOLEObject('MSGraph.Chart.8');
Child:=w.DiagramNode.Children.AddNode;
for i:=1 to 5 do begin
Child.Children.AddNode;
end;
end;
Child:=w.DiagramNode.Children.AddNode;