次の方法で共有

Global.ActivePage プロパティ (Visio)

  • [アーティクル]

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

構文

式。ActivePage

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

戻り値

Page

注釈

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

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

Set vsoPage = 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 のサポートおよびフィードバックを参照してください。