Application.Creator Property (PowerPoint)
Returns a Long that represents the four-character creator code for the application in which the specified object was created. For example, if the object was created in Microsoft PowerPoint, this property returns the hexadecimal number 50575054. Read-only.
expression A variable that represents an Application object.
The Creator property is designed to be used in Microsoft Office applications for the Macintosh.
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