Application.StartupPaths プロパティ (Visio)

アプリケーションの起動時に、Microsoft Visio が実行するサードパーティ アドオンまたはユーザー アドオンを検索するパスを取得または設定します。 値の取得と設定が可能です。

構文

式。StartupPaths

expressionApplication オブジェクトを 表す変数。

戻り値

文字列

注釈

StartupPaths プロパティは、既定では空の文字列 ("") に設定されます。

StartupPaths プロパティに渡され、 StartupPaths プロパティから受け取った文字列は、[ ファイルの場所 ] ダイアログ ボックスに表示される文字列と同じです。 ([ ファイル ] タブをクリックし、[ オプション] をクリックし、[ 詳細設定] をクリックし、[ 全般] の [ ファイルの場所] をクリックします)。この文字列は、 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\StartupPath サブキーに格納されます。

アプリケーションは、サード パーティおよびユーザーのスタートアップ アドオン ファイルを検索すると、 StartupPaths プロパティに指定されたすべてのパスと、セットアップ時にインストールされたすべてのスタートアップ アドオンのパスと、それらのパスのすべてのサブフォルダーを検索します。 StartupPaths プロパティを EnumDirectories メソッドに渡すと、渡されたフォルダーの完全修飾パスの全一覧が返されます。

StartupPaths プロパティを設定すると、[ファイルの場所] ダイアログ ボックスの StartupPaths の既存の値が置き換えられます。 既存の値を保持するには、次のコードに示すように、既存の文字列を取得し、その文字列に対して新しいファイル パスを追加します。

Application.StartupPaths = Application.StartupPaths & ";" & "newpath ".

例

この Microsoft Visual Basic for Applications (VBA) マクロは、StartupPaths プロパティを使用して、[スタートアップ] パスの一覧にパスを追加する方法を示します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。