本示例在当前文档中添加一个图形。
ActiveDocument.Shapes.AddCanvas Left:=10, Top:=10, Width:=100, Height:=100