TextStyleLevels.Application Property
Returns an Application object that represents the creator of the specified object.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property Application As Application
Get
'Usage
Dim instance As TextStyleLevels
Dim value As Application
value = instance.Application
Application Application { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.Application
Application
Examples
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