本示例添加一个线图形。

ActivePresentation.Slides(1).Shapes.AddLine 1000,1000,1000,1000