ハイパーリンク(Hyperlinks オブジェクト)
2015/09/21
Hyperlinks オブジェクト
ワークシートまたはセル範囲のワークシートコレクションを表します。ハイパーリンクを挿入するには、Hyperlinks.Add メソッド を使用します。
object.Hyperlinks
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
Hyperlinks オブジェクト のメソッド
Hyperlinks.Add メソッド
object.Hyperlinks.Add ( anchor, address [, subaddress, screentip, texttodisplay ] )
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
- anchor ・・・ 対象となる Range オブジェクト または、Shape オブジェクト を指定します。省略不可です。
- address ・・・ ハイパーリンクのアドレスを指定します。この引数は、省略不可です。任意のセルに対してハイパーリンクを設定する場合は、空文字(“”) を指定します( address:=”” )。
- subaddress ・・・ 任意のセルにジャンプする場合に指定します(省略可)。
(例)「Sheet2」の「A3」セルへのリンクを指定する場合
subaddress := “Sheet2!A3”
(例)「Book1.xlsx」の「Sheet1」の「B5」セルへのリンクを指定する場合
subaddress := “[Book1.xlsx]Sheet1!B5” - screentip ・・・ ハイパーリンク上をマウスポインターで指した場合に表示されるヒントを指定します。(省略可)。
- texttodisplay ・・・ ハイパーリンクに表示する文字列を指定します(省略可)。
- 新しいハイパーリンクを表す Hyperlink オブジェクト を返します。
Hyperlinks.Delete メソッド
object.Hyperlinks.Delete
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
- 対象となるワークシート上またはセル範囲内の Hyperlink オブジェクト をすべて削除します。
Hyperlinks オブジェクト のプロパティ
Hyperlinks.Count プロパティ
object.Hyperlinks.Count
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
- 対象となるワークシートまたはセル範囲内の Hyperlink オブジェクト の数を返します。
Hyperlinks.Item プロパティ
object.Hyperlinks.Item ( index )
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
- index ・・・ 1 以上の整数値を指定します。
- 単一のオブジェクトを取得します。各ハイパーリンク( Hyperlink オブジェクト )へアクセするには、引数 index に 1 以上の整数値を指定します。
Item プロパティ はデフォルトのプロパティなので省略可能です。
Hyperlinks.Itme ( index ) のプロパティに関しては、ハイパーリンク(Hyperlink オブジェクト) を参照してください。
Hyperlinks.Itme ( index ) のメソッドに関しては、ハイパーリンク(Hyperlink オブジェクトのメソッド) を参照してください。
Hyperlinks オブジェクト 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
Sub Sample_HyperlinksAdd() With ActiveSheet '「B3」セルにハイパーリンクを挿入 .Hyperlinks.Add Anchor:=.Range("B3"), _ Address:="http://www.yahoo.co.jp/", _ ScreenTip:="Yahoo! のトップヘージへ移動", _ TextToDisplay:="Yahoo! JAPAN" '図形の挿入 .Shapes.AddShape msoShapeNoSymbol, 150, 100, 220, 125 '図形にハイパーリンクを挿入 .Hyperlinks.Add Anchor:=.Shapes.Item(1), _ Address:="http://www.google.co.jp", _ ScreenTip:="Google 検索へ移動", _ TextToDisplay:="図形のハイパーリンク" '「E3」セルに「別シートのセル」へのハイパーリンクを挿入 .Hyperlinks.Add Anchor:=.Range("E3"), _ Address:="", _ SubAddress:="Sheet2!C3", _ ScreenTip:="シート2「C3」へ移動します!" '「H3」セルに「電子メール」へのハイパーリンクを挿入 .Hyperlinks.Add Anchor:=.Range("H3"), _ Address:="mailto:test@example.co.jp?subject=テストメール!", _ ScreenTip:="メールソフトを起動します!", _ TextToDisplay:="E-MAIL" End With End Sub |
実行結果
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_Hyperlinks() Dim str As String str = "ハイパーリンク数(削除前):" & ActiveSheet.Hyperlinks.Count & vbCrLf ActiveSheet.Hyperlinks.Delete str = str & "ハイパーリンク数(削除後):" & ActiveSheet.Hyperlinks.Count End Sub |
実行結果
関連記事
-
-
オートフィルタ(平均より上・平均より下)AutoFilter メソッド
平均値よりも大きい(小さい)値のレコードを抽出 AutoFilter メソッドで …
-
-
セルの値を置換・書式設定(Replace メソッド,ReplaceFormat プロパティ)
セルの値の置換と書式設定 検索条件に一致するセルの書式を設定するには、まず、Ap …
-
-
入力規則(入力時メッセージの設定)Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …
-
-
任意の行または列を参照(Rows プロパティ,Columns プロパティ)
Rows プロパティ・Columns プロパティ Rows プロパティは、オブジ …
-
-
セルのアドレスを確認(Address プロパティ)
Address プロパティ Address プロパティ・AddressLocal …
-
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
-
セルの値を置換(Replace メソッド)
Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …
-
-
セルを挿入する(Insert メソッド)
Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …
-
-
オートフィルタ(抽出条件で使用できる演算子・記号)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
オートフィルタ(色で抽出する)AutoFilter メソッド
オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …

