ExcelVBA技 ユーザーフォーム E13U008

サンプル ダウンロード
khyperform102.zip

ユーザーフォームにWebページや電子メールアドレス等のハイパーリンクを設定する方法です。
FollowHyperlinkメソッドを用いる事で簡単に、シート上のハイパーリンクと同様の機能を実現出来ます。 LabelのCaptionプロパティにハイパーリンクの文言を記述し、Clickイベントで実行します。

デザイン時のLabelプロパティ例
外観をハイパーリンクのように設定するとよい。
ForeColor = &HC00000(青色)
MousePointer = fmMousePointerCustom '99
MouseIcon = karrow.cur(指差しのカーソル)
ControlTipText = "作者へのeメール"
Caption = "kmado@aqua-r.tepm.jp"
Font.Underline = True 'Fontオブジェクトで下線の設定

'フォームモジュール
'LabelのClickイベントへの記述要領 (ラベルlblMaile及びlblWebsiteを配置)
'（詳細はFollowHyperlinkメソッドのヘルプをご参照ください。）
Private Sub lblMaile_Click() 'メール
  ThisWorkbook.FollowHyperlink "mailto:kmado@aqua-r.tepm.jp?subject=k窓について", , True
End Sub

Private Sub lblWebsite_Click() 'WebSiteを開く
  ThisWorkbook.FollowHyperlink Address:="http://www2.aqua-r.tepm.jp/~kmado/", _
    NewWindow:=True
End Sub