expression.Creator
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The Creator property is designed to be used in Microsoft Office applications for the Macintosh.
Example
This example displays a message about the creator of myObject.
Set myObject = Application.ActivePresentation.Slides(1).Shapes(1)
If myObject.Creator = &h50575054 Then
MsgBox "This is a PowerPoint object"
Else
MsgBox "This is not a PowerPoint object"
End If