CustomDocumentProperties Property Example

This example adds a static custom property named "Complete" for the active presentation.

Application.ActivePresentation.CustomDocumentProperties _
    .Add Name:="Complete", LinkToContent:=False, _
    Type:=msoPropertyTypeBoolean, Value:=False

This example prints out the active presentation if the value of the "Complete" custom property is True.

With Application.ActivePresentation
    If .CustomDocumentProperties("complete") Then .PrintOut
End With