2018年3月2日セルこのページではHyperlinks.Addメソッドについて紹介しています。実際のハイパーリンクにすぐ活用できるマクロが必要な場合は「VBAで複数セルにハイパーリンクを設定する」で紹介していますのでご参照ください。Hyperlinks.AddメソッドVBAでセルやオートシェイプなどにハイパーリンクを設定する場合、HyperlinksコレクションのAddメソッドを使います。Hyperlinksコレクションは親クラスがWorksheetオブジェクトかRangeオブジェクトになります。通常はWorksheetオブジェクトの方が一般的です。その場合、ワークシートに含まれているハイパーリンク全てをHyperlinksコレクションで管理しています。各ハイパーリンクはHyperlinkオブジェクトになります。Addメソッドの引数にURLやファイルパスなどを指定します。URLが間違っていてもAddメソッドはエラーにはなりませんが、そのセルをクリックしても当然正しく動作しません。構文Hyperlinks.Addメソッドは親オブジェクトがWorksheetオブジェクトの場合とRangeオブジェクトの場合の2通りがあります。Hyperlinksコレクションの親オブジェクトにはWorksheetオブジェクトまたはRangeオブジェクトを指定します。通常はActiveSheetなどのワークシートを指定する方が多いと思われます。ハイパーリンクを設定する個所をセルのRangeオブジェクト、または、オートシェイプのShapeオブジェクトを指定します。接続先のURLやファイルパスやメールアドレスなどのアドレスを文字列で指定します。SubAddressを指定する場合は空文字列の””を指定します。ハイパーリンク先のURLのWebページ内にあるブックマークやワークシートのジャンプ先のセルを指定します。ハイパーリンク上にマウスカーソルを置いたときに表示するヒントを指定します。ハイパーリンクに表示される文字列を指定します。セルの場合のみ有効です。オートシェイプの場合は無視されます。戻り値としてHyperlinks.Addで追加したハイパーリンクが返されます。この時点でHyperlinksコレクションにも追加されていることになります。サンプルコードA1セルと、事前に作成済みのオートシェイプに対してハイパーリンクを設定するサンプルです。セルの方は戻り値を取得する書き方で、オートシェイプの方はWith構文での書き方です。Excel作業をVBAで効率化シェアお問合わせTOPへ。