次の方法で共有

Application.FollowHyperlink メソッド (Access)

  • [アーティクル]

FollowHyperlink メソッドは、ハイパーリンク アドレスで指定されたドキュメントまたは Web ページを開きます。

構文

式。FollowHyperlink (Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)

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

パラメーター

名前 必須 / オプション データ型 説明
Address 必須 文字列型 (String) 有効なハイパーリンク アドレスとして評価される文字列式を指定します。
SubAddress 省略可能 文字列型 (String) 引数 address に指定されたドキュメント内のサブアドレスとして評価される文字列式を指定します。 この引数を指定しない場合は、長さ 0 の文字列 (" ") が使用されます。
NewWindow 省略可能 Boolean True (1) が新しいウィンドウでドキュメントを開き、False (0) が現在のウィンドウでドキュメントを開くブール値。 既定値は False です。
AddHistory 省略可能 Boolean 履歴のフォルダーにハイパーリンクを追加する場合はブール型 (Boolean) の値の True を指定し、追加しない場合は False を指定します。 既定値は True です。
ExtraInfo 省略可能 バリアント型 ハイパーリンクに移動するために必要な追加情報を、文字列またはバイト型 (Byte) データの配列で指定します。 たとえば、この引数を使用して、.ASP ファイルまたは .IDC ファイルの検索パラメーターを指定します。 Web ブラウザーでは、ハイパーリンク アドレスの後に extrainfo 引数が表示され、アドレスから疑問符 (?) で区切られます。 引数 extrainfo の指定時には、疑問符を含める必要はありません。
Method オプション MsoExtraInfoMethod extrainfo 引数のアタッチ方法を指定する MsoExtraInfoMethod 定数。
HeaderInfo 省略可能 文字列型 (String) ヘッダー情報を文字列で指定します。 既定では、 headerinfo 引数は長さ 0 の文字列です。

注釈

FollowHyperlink メソッドを使うと、コントロールに含まれないハイパーリンクを開くことができます。 このハイパーリンクは、コードで用意するか、またはユーザーが入力します。 たとえば、ダイアログ ボックスにハイパーリンク アドレスを入力するようにユーザーに求め、 FollowHyperlink メソッドを使用してそのハイパーリンクに従うことができます。

ハイパーリンクに移動するときに追加情報を指定するには、 extrainfo 引数と メソッド 引数を使用します。 たとえば、検索エンジンでパラメーターを使うことができます。

コントロールに関連付けられているハイパーリンクに従う場合は、 Follow メソッドを使用します。

例

次の関数は、ユーザーにハイパーリンク アドレスの入力を求め、ハイパーリンクに従います。

Function GetUserAddress() As Boolean 
    Dim strInput As String 
 
    On Error GoTo Error_GetUserAddress 
    strInput = InputBox("Enter a valid address") 
    Application.FollowHyperlink strInput, , True 
    GetUserAddress = True 
 
Exit_GetUserAddress: 
    Exit Function 
 
Error_GetUserAddress: 
    MsgBox Err & ": " & Err.Description 
    GetUserAddress = False 
    Resume Exit_GetUserAddress 
End Function

この関数は、次のようなプロシージャで呼び出します。

Sub CallGetUserAddress() 
    If GetUserAddress = True Then 
        MsgBox "Successfully followed hyperlink." 
    Else 
        MsgBox "Could not follow hyperlink." 
    End If 
End Sub

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

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