Méthode Window.DockedStencils (Visio)
Renvoie les noms de tous les gabarits fixes dans une fenêtre de dessin Microsoft Visio.
Syntaxe
expression. DockedStencils( _NameArray()_ )
Expression Variable qui représente un objet Window .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| NameArray() | Requis | String | Paramètre de sortie. Tableau qui reçoit les noms des gabarits fixes dans une fenêtre. |
Valeur renvoyée
Aucune
Remarques
La méthode DockedStencils retourne un tableau de chaînes, c’est-à-dire les noms des gabarits affichés dans les volets de gabarit ancrés d’une fenêtre. Lorsque la fenêtre est une fenêtre de dessin, le nombre de volets de gabarit ancrés ( n ) est égal ou supérieur à zéro, et n est égal à zéro lorsque la fenêtre n’est pas une fenêtre de dessin.
Si la méthode DockedStencils réussit, l'argument NomTableau() renvoie un tableau à une dimension de n chaînes indexées de 0 à n-1. Le paramètre NameArray() est un paramètre out alloué par la méthode DockedStencils , dont la propriété est transmise à l’appelant. Ce dernier doit finalement exécuter la procédure SafeArrayDestroy sur le tableau renvoyé. Notez que la procédure SafeArrayDestroy a pour effet secondaire de libérer les chaînes auxquelles les entrées du tableau font référence. La méthode DockedStencils échoue si NomTableau() est nul. (Microsoft Visual Basic et Visual Basic pour Applications prennent soin de supprimer le tableau pour vous.)
Si strStencilName est la chaîne renvoyée par NameArray(StencilName),Documents.Item ( strStencilName) réussit et renvoie un objet Document représentant le gabarit.
Exemple
La macro Microsoft Visual Basic pour Applications suivante montre comment utiliser la méthode DockedStencils pour obtenir les noms de document de tous les gabarits ancrés dans la fenêtre active. Il imprime également, dans la fenêtre Exécution, le nom du document actif et les limites inférieure et supérieure du tableau qui contient les noms de gabarits, puis répertorie les noms et les chemins de gabarit, également dans la fenêtre Exécution.
Public Sub DockedStencils_Example()
Dim astrStencilNames() As String
ActiveWindow.DockedStencils astrStencilNames
Dim intLowerBound As Integer
Dim intUpperBound As Integer
Dim intIndex As Integer
intLowerBound = LBound(astrStencilNames)
intUpperBound = UBound(astrStencilNames)
Debug.Print "Active document: " ActiveWindow.Document; " Lower bound:"; intLowerBound; " Upper Bound:"; intUpperBound
intIndex = intLowerBound
While intIndex <= intUpperBound
Debug.Print astrStencilNames(intIndex)
intIndex = intIndex + 1
Wend
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.