Propriété InvisibleApp.StencilPaths (Visio)

Obtient ou définit les chemins d’accès dans lesquels Microsoft Visio recherche des gabarits. Lecture-écriture.

Syntaxe

expression. StencilPaths

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

String

Remarques

La propriété StencilPaths est définie sur une chaîne vide ("") par défaut.

La chaîne transmise à la propriété StencilPaths et envoyée par celle-ci est identique à la chaîne figurant dans la boîte de dialogue Emplacements des fichiers. (Cliquez sur l’onglet Fichier , sur Options, sur Avancé, puis, sous Général, cliquez sur Emplacements des fichiers.) Cette chaîne est stockée dans la sous-cléHKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\StencilPath .

Lorsque Visio recherche les gabarits, il consulte tous les chemins d’accès indiqués dans la propriété StencilPaths et tous les sous-dossiers de ces chemins. Si vous transmettez la propriété StencilPaths à la méthode EnumDirectories, la liste de tous les chemins d’accès complets des dossiers transmis est renvoyée.

La définition de la propriété StencilPaths remplace les valeurs existantes des gabarits dans la boîte de dialogue Emplacements des fichiers. Pour conserver les valeurs existantes, récupérez la chaîne existante, puis ajoutez le nouveau chemin d’accès à cette chaîne, comme indiqué par le code suivant :

Application.StencilPaths = Application.StencilPaths & ";" & "newpath ".

Avertissement

La modification du Registre Windows de quelque manière que ce soit, que ce soit dans l’Éditeur du Registre ou par programme, comporte toujours un certain degré de risque. Une modification incorrecte peut entraîner de graves problèmes, pouvant nécessiter la réinstallation du système d’exploitation. Nous vous recommandons de toujours sauvegarder le registre d’un ordinateur avant de le modifier.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété StencilPaths pour ajouter un chemin d’accès aux gabarits.

 
Public Sub ShowStencilPaths_Example() 
  
    Dim strMessage As String 
    Dim strNewPath As String 
    Dim strStencilPath As String 
    Dim strTitle As String 
 
    'Get the path we want to add.  
    strStencilPath = Application.StencilPaths  
    strTitle = "StencilPaths"  
    strMessage = "The current content of the Visio Stencils box is:"  
    strMessage = strMessage & vbCrLf & strStencilPath  
    MsgBox strMessage, vbInformation + vbOKOnly, strTitle  
    strMessage = "Type in an additional path for Visio to look for stencils. "  
    strNewPath = InputBox$(strMessage, strTitle)  
 
    'Make sure the folder exists and that it's not 
    'already in the stencil paths.  
    strMessage = ""  
    If strNewPath = ""  Then 
        strMessage = "You did not enter a path." 
        ElseIf InStr(strStencilPath, strNewPath)  Then 
            strMessage = "The path you specified is already in the stencil paths."  
        ElseIf Len(Dir$(strNewPath, vbDirectory)) = 0 And _  
                Len(Dir$(Application.Path & strNewPath, _  
                vbDirectory)) = 0 Then 
            strMessage = "The folder you typed does not exist (or is blank)."  
        Else 
            Application.StencilPaths = strStencilPath & ";" & strNewPath  
            strMessage = "We just added " & strNewPath & _  
                " to the stencil paths."  
        End If 
   
    If strMessage <> ""  Then 
        MsgBox strMessage, vbExclamation + vbOKOnly, strTitle  
    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.