Propriété Window.SelectedMasters (Visio)

Article
04/07/2023

Renvoie un tableau des formes de base ou des raccourcis de formes de base sélectionnés dans une fenêtre de gabarit de Microsoft Visio. En lecture seule.

Syntaxe

expression. SelectedMasters

Expression Variable qui représente un objet Window .

Valeur renvoyée

Object()

Remarques

La propriété SelectedMasters ne s'applique qu'aux fenêtres de gabarit. Si vous essayez d’accéder à la propriété SelectedMasters pour d’autres types de fenêtre, Visio peut renvoyer une erreur.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) utilise la propriété SelectedMasters pour obtenir le nombre de raccourcis maîtres et maîtres sélectionnés dans une fenêtre de gabarit, puis imprime le nom du gabarit et les raccourcis maîtres et maîtres sélectionnés dans la fenêtre Exécution.

Avant d'exécuter cette macro, veillez à ce qu'au moins une forme de base ou un raccourci de forme de base soit sélectionné dans le gabarit fixe de la fenêtre active de Visio.

Sub SelectedMasters_Example() 
 
 Dim vsoWindow As Visio.Window 
 Dim aobjSelectedMasters() As Object 
 Dim intNumberMasters As Integer 
 Dim intNumberMasterShortCuts As Integer 
 Dim vsoMaster As Visio.Master 
 Dim vsoMasterShortcut As Visio.MasterShortcut 
 intNumberMaster = 0 
 intNumberMasterShortCuts = 0 
 
 For Each vsoWindow In ActiveWindow.Windows 
 
 If (vsoWindow.Type = visDockedStencilBuiltIn) Then 
 aobjSelectedMasters = vsoWindow.SelectedMasters 
 
 For intCounter = LBound(aobjSelectedMasters) To UBound(aobjSelectedMasters) 
 On Error Resume Next 
 Set vsoMaster = Nothing 
 Set vsoMasterShortcut = Nothing 
 Set vsoMaster = aobjSelectedMasters(intCounter) 
 
 If Not vsoMaster Is Nothing Then 
 intNumberMasters = intNumberMasters + 1 
 Else 
 Set vsoMasterShortcut = aobjSelectedMasters(intCounter) 
 
 If Not vsoMasterShortcut Is Nothing Then 
 intNumberMasterShortCuts = intNumberMasterShortCuts + 1 
 End If 
 
 End If 
 
 Next 
 
 If (intNumberMasters > 0 Or intNumberMasterShortCuts > 0) Then 
 Debug.Print "The stencil " & vsoWindow.Document.Name 
 Debug.Print "has" & Str(intNumberMasters) & " masters selected and " 
 Debug.Print Str(intNumberMasterShortCuts) & " master shortcuts selected." 
 Exit For 
 End If 
 
 End If 
 
 Next 
 
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.

Partager via