Partager via


Propriété InvisibleApp.StartupPaths (Visio)

Obtient ou définit les chemins d’accès dans lesquels Microsoft Visio recherche les modules complémentaires tiers et utilisateur à exécuter au démarrage de l’application. Lecture-écriture.

Syntaxe

expression. StartupPaths

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

Chaîne

Remarques

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

La chaîne transmise à la propriété StartupPaths 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\StartupPath .

Lorsque l’application recherche des fichiers complémentaires de démarrage tiers et utilisateur, elle recherche tous les chemins d’accès nommés dans la propriété StartupPaths , ainsi que les chemins d’accès des modules complémentaires de démarrage installés lors de l’installation et tous les sous-dossiers de ces chemins d’accès. Si vous transmettez la propriété StartupPaths à 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é StartupPaths remplace les valeurs existantes pour StartupPaths 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.StartupPaths = Application.StartupPaths & ";" & "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é StartupPaths pour ajouter un chemin d’accès à la liste de chemins d’accès Démarrage.

Public Sub StartupPaths_Example() 
  
    Dim strMessage As String 
    Dim strNewPath As String 
    Dim strStartupPath As String 
    Dim strTitle As String  
 
    'Get the path we want to add.  
    strStartupPath = Application.StartupPaths  
    strTitle = "StartupPaths"  
    strMessage = "The current content of the Visio Start-up paths box is:"  
    strMessage = strMessage & vbCrLf & strStartupPath  
    MsgBox strMessage, vbInformation + vbOKOnly, strTitle  
    strMessage = "Type in an additional path for Visio to look for add-ons. "  
         
    strNewPath = InputBox$(strMessage, strTitle)  
 
    'Make sure the folder exists and that it's not 
    'already in the Start-up paths box.  
    strMessage = ""  
 
    If strNewPath = ""  Then 
        strMessage = "You did not enter a path." 
    ElseIf InStr(strStartupPath, strNewPath)  Then 
        strMessage = "The path you specified is already in the Start-up paths box." 
    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 empty)." 
    Else 
        Application.StartupPaths = strStartupPath & ";" & strNewPath 
        strMessage = "We just added " & strNewPath & _  
                " to the startup 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.