ハイパーリンク(Hyperlink オブジェクトのメソッド)
Hyperlink オブジェクトのメソッド
Hyperlinks コレクション のメンバーです。単体の Hyperlink オブジェクト を取得するには、Hyperlinks(index) プロパティを使用します。引数 index には、ハイパーリンク番号を指定します。Hyperlink オブジェクト のプロパティに関しては、ハイパーリンク(Hyperlink オブジェクト) 、Hyperlinksに関しては、ハイパーリンク(Hyperlinks オブジェクト)を参照してください。
Hyperlink.Delete メソッド
object.Hyperlink.Delete
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンクを削除します。また、その時設定されていた書式も標準の状態に戻ります。
リンクのみを削除したい場合、ClearHyperlinks メソッド を使用します。
【書式】 object.ClearHyperlinks
object … 対象となる Range オブジェクト を指定します。
実行すると、書式はそのままで、ハイパーリンクのみが削除されます。ただし、Excel 2010 以降のバージョンでのみしか使用できません。
Hyperlink.Follow メソッド
object.Hyperlink.Follow
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンクを開きます。
Hyperlink.CreateNewDocument メソッド
object.Hyperlink.CreateNewDocument ( filename, editnow, overwrite )
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- filename ・・・ 新規に作成するファイルの名前を指定します(省略不可)。
- editnow ・・・ True を指定すると、新規ファイル作成後、そのファイルを開きます(省略不可)。
- overwrite ・・・ True を指定すると、同名ファイルがすでに存在している場合、そのファイルを上書きします。False を指定した時、同名ファイルが存在する場合、エラーが発生します(省略不可)。
- 実行すると、引数 filename で指定したファイルを新規に作成します。このとき、引数 overwrite が、True のとき、同名ファイルは、上書きされます。また、引数 editnow が、True のときは、その新規ファイルを開きます。これを使ってリンク先ファイルを作成することが可能です。
Hyperlink オブジェクト 使用例
サンプル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 |
Sub Sample01_Hyperlink() Dim myPath As String, myFileName As String Dim w As Worksheet 'デスクトップのパスを取得 myPath = CreateObject("WScript.Shell").specialfolders("Desktop") myFileName = myPath & "\TEST01.txt" Set w = Worksheets("Sheet1") 'ハイパーリンクを作成します w.Hyperlinks.Add Anchor:=Range("B3"), _ Address:=myFileName, _ TextToDisplay:="テキストファイルへのリンク" 'リンク用の新規ファイル(TEXT01.txt)を作成します Range("B3").Hyperlinks(1).CreateNewDocument Filename:=myFileName, _ editnow:=False, _ overwrite:=True 'ハイパーリンク(TEXT01.txt)を開きます Range("B3").Hyperlinks(1).Follow End Sub |
実行結果
関連記事
-
-
フリガナ(Phonetic プロパティ)
Phonetic プロパティ 文字列(漢字など)をキーボードから入力した時の「読 …
-
-
対象のセルを直接参照しているセル全てを取得(DirectDependents プロパティ)
DirectDependents プロパティ DirectDependents …
-
-
セルが選択されているか確認する(TypeName 関数)
セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …
-
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …
-
-
現在選択されているセルを参照(RangeSelection プロパティ)
RangeSelection プロパティ 実際に何が選択されているかにかかわらず …
-
-
終端セルを参照する(End プロパティ)
End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …
-
-
VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …
-
-
コメントの設定(Comments, Comment, AddComment, ClearComment)
コメントの設定 セルにコメントを新規に挿入するには、AddComment メソッ …
-
-
オートフィルタ(平均より上・平均より下)AutoFilter メソッド
平均値よりも大きい(小さい)値のレコードを抽出 AutoFilter メソッドで …
-
-
入力規則(入力時メッセージの設定)Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …