Propriété Application.ActivePage (Visio)

Renvoie l’objet Page actif. En lecture seule.

Syntaxe

expression. ActivePage

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Page

Remarques

La propriété ActivePage ne renvoie un objet Page que lorsque la fenêtre active affiche une page de dessin ; sinon, elle renvoie la valeur Nothing. Pour contrôler qu'une page est active, vérifiez, à l'aide de l'opérateur Is, que la valeur Nothing n'est pas associée à la propriété ActivePage.

Il est possible d’obtenir la fenêtre active sans qualification à partir de l’objet global Microsoft Visio, qui est automatiquement disponible pour le code VBA qui fait partie du projet VBA d’un document Visio. Vous pouvez, par exemple, utiliser ce code :

Set vsoPage = ActivePage

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette propriété correspond aux types suivants :

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

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) montre comment obtenir la page active sans qualification à partir de l’objet global Visio, qui est automatiquement disponible pour le code VBA qui fait partie du projet VBA d’un document 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.