本示例为当前演示文稿添加一个静态自定义属性“Complete”。

Application.ActivePresentation.CustomDocumentProperties _
    .Add Name:="Completssssse", LinkToContent:=False, _
    Type:=ksoPropertyTypeBoolean, Value:=False