PowerPoint.NamedSlideShows.Application.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
NamedSlideShows.Application property (PowerPoint)	vbapp10.chm515001	vbapp10.chm515001	PowerPoint.NamedSlideShows.Application	4f3510c2-4a77-ee75-2e56-050338c63992	06/08/2017	medium

NamedSlideShows.Application property (PowerPoint)

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

Syntax

expression.Application

expression A variable that represents a NamedSlideShows object.

Return value

Application

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.

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 shpOle In ActivePresentation.Slides(1).Shapes

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

See also

NamedSlideShows Object

[!includeSupport and feedback]