Shapes.Application Property

  • Article
PowerPoint Developer Reference

Returns an Application object that represents the creator of the specified object.

Syntax

expression.Application

expression   A variable that represents a Shapes object.

Return Value
Object

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 Microsoft PowerPoint is running.

Visual Basic for Applications 
  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.

Visual Basic for Applications 
  For Each shpOle In ActivePresentation.Slides(1).Shapes
    If shpOle.Type = msoLinkedOLEObject Then
        MsgBox shpOle.OLEFormat.Application.Name
    End If
Next

See Also