指定した範囲または図形にハイパーリンクを追加するための構文は、expression.Add
です。expression
はHyperlinksオブジェクトを示します。必要なパラメータは、Anchor(ハイパーリンクのアンカー)、Address(ハイパーリンクのアドレス)、およびオプションのSubAddress、ScreenTip、TextToDisplayです。テキストは文字列でなければなりません。例として、A5セルにMicrosoftのウェブサイトやメールリンクを追加する方法が示されています。サポートやフィードバックについては、Office VBAのサポートを参照してください。
指定された範囲またはシェイプにハイパーリンクを追加します。
構文
expression.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
expression ハイパーリンクオブジェクトを表す変数。
パラメーター
名前 | 必須/オプショナル | データ型 | 説明 |
---|---|---|---|
Anchor | 必須 | オブジェクト | ハイパーリンクのアンカー。Range または Shape オブジェクトのいずれか。 |
Address | 必須 | 文字列 | ハイパーリンクのアドレス。 |
SubAddress | オプショナル | バリアント | ハイパーリンクのサブアドレス。 |
ScreenTip | オプショナル | バリアント | マウスポインターがハイパーリンクの上にあるときに表示されるスクリーンティップ。 |
TextToDisplay | オプショナル | バリアント | ハイパーリンクに表示されるテキスト。 |
戻り値
新しいハイパーリンクを表すHyperlinkオブジェクト。
TextToDisplay引数を指定する場合、テキストは文字列である必要があります。
例
この例ではセルA5にハイパーリンクを追加します。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="https://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
この例ではセルA5にメールハイパーリンクを追加します。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:someone@example.com?subject=hello", _
ScreenTip:="Write us today", _
TextToDisplay:="Support"
End With
サポートとフィードバック
Office VBAやこのドキュメントに関して質問やフィードバックがありますか?サポートを受けたりフィードバックを提供する方法については、Office VBAサポートとフィードバックをご覧ください。
————-
Hyperlinks.Add method (Excel) | Microsoft Learn
Source link
Summary: Adding a Hyperlink in VBA
The Add
method allows you to add a hyperlink to a specified range or shape in VBA.
Syntax
expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
- expression: A variable representing a
Hyperlinks
object.
Parameters
- Anchor (Required, Object): The target for the hyperlink (a Range or Shape object).
- Address (Required, String): The hyperlink’s main address (URL).
- SubAddress (Optional, Variant): The subaddress within the hyperlink.
- ScreenTip (Optional, Variant): Tooltip displayed when hovering over the hyperlink.
- TextToDisplay (Optional, Variant): Text shown for the hyperlink (must be a string).
Return Value
Returns a Hyperlink
object representing the newly created hyperlink.
Example Code
-
Adding a hyperlink to a webpage:
With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("A5"), _ Address:="https://example.microsoft.com", _ ScreenTip:="Microsoft Web Site", _ TextToDisplay:="Microsoft" End With
- Adding an email hyperlink:
With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("A5"), _ Address:="mailto:someone@example.com?subject=hello", _ ScreenTip:="Write us today", _ TextToDisplay:="Support" End With
Support and Feedback
For support or feedback regarding Office VBA, refer to the official Office VBA support resources.