Fonts.Application Property

Syntax

expression.Application

expression A variable that represents a Fonts 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:

• Fonts Object
• Fonts Object Members