Application.ActivePage プロパティ (Visio)

アクティブな Page オブジェクトを返します。 読み取り専用です。

構文

式。ActivePage

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

戻り値

Page

注釈

ActivePage プロパティは、作業中のウィンドウに図面ページが表示されている場合にのみ、Page オブジェクトを返します。それ以外の場合は Nothing を返します。 ページがアクティブであることを確認するには、 Is 演算子を使用して ActivePage プロパティを Nothing と比較します。

Visio ドキュメントの VBA プロジェクトの一部である VBA コードで自動的に使用できる、Microsoft Visio グローバル オブジェクトから修飾なしでアクティブ ウィンドウを取得できます。 たとえば、次のコードを使用できます。

Set vsoPage = ActivePage

Visual Studio ソリューションに Microsoft.Office.Interop.Visio リファレンスが含まれている場合、このプロパティは次の種類にマップされます。

• Microsoft.Office.Interop.Visio.IVApplication.ActivePage

例

この Microsoft Visual Basic for Applications (VBA) マクロは、Visio ドキュメントの VBA プロジェクトの一部である VBA コードで自動的に使用できる Visio グローバル オブジェクトから修飾なしでアクティブなページを取得する方法を示しています。

 
Public Sub ActivePage_Example() 
  
    Dim vsoPage As Page  
 
    'Find out if a page exists, and if it does, get the page. 
    If Not(ActivePage Is Nothing)  Then 
        Set vsoPage = ActivePage 
        Debug.Print vsoPage.Name 
    Else 
        Debug.Print "No active page." 
    End If   
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。