Publisher.Shape.Application.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
Shape.Application property (Publisher)	vbapb10.chm2228225	vbapb10.chm2228225	Publisher.Shape.Application	d39e9ba7-9e08-a903-8c44-ede0174ad2f4	06/13/2019	medium

Shape.Application property (Publisher)

When used without an object qualifier, this property returns an Application object that represents the current instance of Publisher.

When used with an object qualifier, this property returns an Application object that represents the creator of the specified object.

When used with an OLE Automation object, it returns the object's application.

Syntax

expression.Application

expression A variable that represents a Shape object.

Example

This example displays the version and build information for Publisher.

With Application 
 MsgBox "Current Publisher: version " _ 
 & .Version & " build " & .Build 
End With

This example displays the name of the application that created each linked OLE object on page one of the active publication.

Dim shpOle As Shape 
 
For Each shpOle In ActiveDocument.Pages(1).Shapes 
 If shpOle.Type = pbLinkedOLEObject Then 
 MsgBox shpOle.OLEFormat.Application.Name 
 End If 
Next

[!includeSupport and feedback]