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