Delphi中的PowerPoint：用文本填充表格(PowerPoint in Delphi: fill table with text)

 我正在为Dephi XE3中的PowerPoint编写一个加载项，它会插入一个表并用一些文本填充它。 我几乎已经完成了它，但我无法用文本填充表格。 
 
 这是我的代码： 
 
insp:=CreateOleObject('PowerPoint.Application');
insp.ActivePresentation.Slides.Add(1, ppLayoutBlank);
MSTable:=insp.ActivePresentation.Slides.Item(1);
MSTable.Shapes.AddTable(5, 5, 100, 0);
MSTable.Table.Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
 
 当我试图填写表格时，我收到了这个错误 
 
 
 
 自动化对象不支持方法“表” 
 
 
 还试过这个： 
 
MSTable.AddTable(5, 5, 100, 0).Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
MSTable.Table.Item(1).Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
 
 在MSDN上找到了如何在VBA中编写此代码，但没有帮助。 请帮我解决这个问题。 

I'm writing an add-in to PowerPoint in Dephi XE3, which would insert a table and fill it with some text. I am almost done with it, but I can't fill a table with text.
 
This is my code: 
 
insp:=CreateOleObject('PowerPoint.Application');
insp.ActivePresentation.Slides.Add(1, ppLayoutBlank);
MSTable:=insp.ActivePresentation.Slides.Item(1);
MSTable.Shapes.AddTable(5, 5, 100, 0);
MSTable.Table.Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
 
When I'm trying to fill a table, I'm getting this error
 
 
 
Method 'Table' not supported by automation object
 
 
Also tried this:
 
MSTable.AddTable(5, 5, 100, 0).Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
MSTable.Table.Item(1).Cell(2,2).Shape.TextFrame.TextRange.Text:='Text';
 
On MSDN found how to write this code in VBA, but doesn't help. Please help me solve this problem. 

原文：https://stackoverflow.com/questions/18052566