本示例当活动演示文稿的第一张幻灯片有一个表格中显示 "Kingsoft"。

ActivePresentation.Slides(1).Shapes(1).Table.CellRange(1, 1, 1, 1).TextFrame.TextRange.Text = "Kingsoft"