Creator Property Example

This example displays a message about the creator of myObject.

Set myObject = Application.ActivePresentation.Slides(1).Shapes(1)
If myObject.Creator = &h50505433 Then
    MsgBox "This is a PowerPoint object"
Else
    MsgBox "This is not a PowerPoint object"
End If