WebBrowserControl.Hyperlink プロパティ (Access)

Hyperlink オブジェクトへの参照を取得し、コントロールのハイパーリンクのプロパティとメソッドにアクセスするには、Hyperlink プロパティを使用します。 読み取り専用です。

構文

式。ハイパーリンク

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

例

次の例の CreateHyperlink プロシージャは、コマンド ボタン、ラベル、またはイメージ コントロールのハイパーリンク プロパティを、プロシージャに渡されるアドレスとサブアドレス値に設定します。 現在のデータベース内のオブジェクトへのハイパーリンクではサブアドレス設定のみが使用されるため、アドレス設定は省略可能な引数です。

この例を試すには、2 つのテキスト ボックス コントロール (txtAddress と txtSubAddress) とコマンド ボタン (cmdFollowLink) を含むフォームを作成し、次をフォームのモジュールの [宣言] セクションに貼り付けます。

Private Sub cmdFollowLink_Click() 
 CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _ 
 Me!txtAddress 
End Sub 
 
Sub CreateHyperlink(ctlSelected As Control, _ 
 strSubAddress As String, Optional strAddress As String) 
 Dim hlk As Hyperlink 
 Select Case ctlSelected.ControlType 
 Case acLabel, acImage, acCommandButton 
 Set hlk = ctlSelected.Hyperlink 
 With hlk 
 If Not IsMissing(strAddress) Then 
 .Address = strAddress 
 Else 
 .Address = "" 
 End If 
 .SubAddress = strSubAddress 
 .Follow 
 .Address = "" 
 .SubAddress = "" 
 End With 
 Case Else 
 MsgBox "The control '" & ctlSelected.Name _ 
 & "' does not support hyperlinks." 
 End Select 
End Sub

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

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