Application Property Example

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 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.

For Each s In ActivePresentation.Slides(1).Shapes
    If s.Type = msoLinkedOLEObject Then
        MsgBox s.OLEFormat.Object.Application.Name
    End If
Next