次の方法で共有

CellRange.Application プロパティ (Publisher)

  • [アーティクル]

オブジェクト修飾子なしで使用する場合、このプロパティは Publisher の現在のインスタンスを表す Application オブジェクトを返します。

オブジェクト修飾子を指定した場合、指定したオブジェクトを作成した Application オブジェクトを取得します。

OLE オートメーション オブジェクトに対してこのプロパティを使用すると、そのオブジェクトのアプリケーションを取得できます。

構文

expression.Application

式CellRange オブジェクトを表す変数。

例

次の使用例は、Publisher のバージョンおよびビルド情報を表示します。

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

次の使用例は、作業中の文書で 1 番目のページの各リンク 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 のサポートおよびフィードバックを参照してください。