共用方式為

ShapeRange.Application 屬性 (Publisher)

  • 發行項

在沒有物件辨識符號的情況下使用時，這個屬性會傳回代表 Publisher 目前實例的 Application 物件。

物件辨識符號搭配使用時，此屬性會傳回代表指定之物件的建立者的 Application 物件。

若與 OLE Automation 物件一起使用，則會傳回物件的應用程式。

語法

運算式。應用

表達 代表 ShapeRange 物件的 變數。

範例

在這個範例中，會顯示 Publisher 的版本及組建資訊。

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

在這個範例中，會顯示在使用中出版物第一頁上建立每一個連結 OLE 物件的應用程式名稱。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。