ExcelVBAでのラベルの動作について

質問

ExcelVBAについて、質問させて下さい。

ExcelVBAでユーザーフォームのメイン画面とサブ画面を作り、メイン画面にラベルを配置して、それをクリックするとサブ画面が表示されるようにしました。

メイン画面はその名の通りメインとなるプログラム画面で、サブ画面はヘルプ画面としています。

ラベルをクリックしたときにサブ画面が表示されるようにするのはよかったのですが、マウスカーソルをラベルに近づけても変化がありません。
ラベルの文字に下線を付けて色を変え変化を付けていますが、ユーザーの視覚的には、カーソルの変化が一番だと思っているのですが、どうしたらいいのかわかりません。

また、クリックしたらサブ画面が開くようにしたラベルは、「表示」→「タブオーダー」で設定ができたのですが、実際にTabキーで押下していってみると選択できていません。

ラベルは、タブオーダーで設定できたものの他に、フレームの中に入っているものもあります。

(1)クリックイベントを設定したラベルは、マウスカーソルを近づけたときに、カーソルが変化するように設定することは可能でしょうか？

(2)タブオーダーで設定したラベルを、実際にTabキーで選択できるようにするにはどうしたらよいでしょうか？

(3)フレームの中に入っている、ラベルも(2)と同様のことができますでしょうか？

質問が多くて申し訳ありません。

よろしくお願い致します。

回答No.1

uruz · ベストアンサー

１）可能です。
デザイン時にMousePointerプロパティで設定できます。予め幾つかのカーソルが用意されていますので選択してください。
また任意のカーソルを設定することもできます。
MousePointerに99-fmMousePointerCustomを選択し、MouseIconプロパティにカーソルファイルを設定します。

２）出来ません
ラベルコントロールは元々フォーカスを持たないコントロールです。TABキーによる選択はできません。
これはVBAの仕様です。
ラベルの替わりにTextBoxを使い見栄えをラベルの様に設定し編集不可に設定すればフォーカスの持てるラベルの様に振る舞えますがTextBoxにはClickイベントはありません。

蛇足：
クリックしてヘルプを表示とのことですが、詳細なヘルプなのでしょうか？、簡単なヘルプ表示ならControlTipTextが使用できます。プロパティのControlTipTextに設定するとマウスの乗せると設定された内容が画面に表示されます。

お礼

度々ご回答いただきありがとうございました！クリックすると変化するよ！ということをサイズの小さい画像などで、案内するようにしたいと思います。あと「ControlTipText」について教えて下さいましてありがとうございました。今回はどっしりとした内容なので、軽い内容の時に使ってみたいと思います。