HOME > 即効テクニック > AccessVBA > コーディング・デバッグ > ハイパーリンクの色を設定する

即効テクニック

コーディング・デバッグ

ハイパーリンクの色を設定する

(Access 2000/2002)
[ツール]メニューの[オプション]をクリックすると表示されるオプションダイアログボックスの[全般]タブに「Webオプション」ボタンがあります。
このボタンをクリックして表示されるWebオプションダイアログボックスでは、ハイパーリンクの色を設定することができます。
フォームにハイパーリンクを挿入した時、URLなどを何色で表示するかを設定するためのものです。

●表示されていないハイパーリンクの色を設定する●
下記は、SetOptionメソッドを使って、黄色に設定しています。

Sub Sample()

    Application.SetOption _
        "Hyperlink Color", 11

End Sub

ハイパーリンクは、[挿入]メニューの[ハイパーリンク]で設定します。新規に作成されたフォームにハイパーリンクを挿入すると、黄色に表示されます。また、Webオプションダイアログボックスの[ハイパーリンクの色]ボックスは「黄色」が表示されます。

●表示済みのハイパーリンクの色を設定する●
下記は、SetOptionメソッドを使って、赤色に設定しています。

Sub Sample()

    Application.SetOption _
        "Followed Hyperlink Color", 9

End Sub

また、Webオプションダイアログボックスの[表示済みのハイパーリンクの色]ボックスは「赤色」が表示されます。設定できる色の値は次のとおりです。

0= 黒 1= 茶色 2= 緑 3= オリーブ 4= 濃い青
5= 紫 6= 青緑 7= 灰色 8= 銀色 9= 赤
10= 明るい緑 11= 黄 12= 青 13= 赤紫 14= 水色
15= 白