Comment.Application Property (PowerPoint)
Returns an Application object that represents the creator of the specified object.
In this example, a Presentation object is passed to the procedure. The procedure adds a slide to the presentation and then saves the presentation in the folder where Microsoft PowerPoint is running.
Sub AddAndSave(pptPres As Presentation) pptPres.Slides.Add 1, 1 pptPres.SaveAs pptPres.Application.Path & "\Added Slide" End Sub
This example displays the name of the application that created each linked OLE object on slide one in the active presentation.