コマンドボタンやイメージにマウスをのせるとボタン名を表示したい

Excel97,Windows98SEを使用しています。

エクセルのシートに、コントロールツールボックスで作成したコマンドボタンやイメージを配置して、クリックするとマクロを実行させるようにしています。

そのボタンやイメージに、ツールバーのボタンの上にマウスをのせるとボタンの説明が出てくるのと同じような機能を付けたいのですが、可能でしょうか？

ボタンの下のセルにコメントを入れてみたのですが上手くいきませんでした…。

ご存知の方、どうぞよろしくお願いいたします。

No.4 ベストアンサー 回答者： sakenomo 回答日時： 2003/11/25 20:44

＃３さんのおっしゃるように、MouseMoveイベントを使う方法があります。

ボタンの上にテキストボックスを置きます。
ボタンのMouseMoveイベントでテキストボックスのVisibleプロパティ を　True　にします。
ボタンの下に、ボタンより一回り大きなイメージコントロールなどを置いて、そのコントロールのMouseMoveイベントで、テキストボックスの　Visible を　Falseにします。
イメージコントロールのBachStyleプロパティとBorderStyleで、イメージコントロールを透明にできます。

この回答へのお礼

ご回答ありがとうございます。
下にもうひとつのイメージを置くなんて考えつきませんでした！
かなりイメージしているものに近いものができました！
ただ、CommandButton1.MousePointer = fmMousePointerArrow
という設定をしていても、マウスの形が砂時計と矢印を行き来していて、だいぶチラつくのですが、
他に違うやり方などがありますでしょうか？
どうぞよろしくお願いします。

お礼日時：2003/11/26 10:58

No.8 回答者： sakenomo 回答日時： 2003/11/26 22:58

＃７です。

失礼しました、訂正です。

>　テキストボックスは、"図形描画"のものを使うことをお勧めします、最初に書いておけばよかったですね。

"図形描画"ではなくて、コントロールツールボックスの"ラベル"ですね。
ラベルは文字の大きさや位置などに制約がありますが、プロパティを工夫すればけっこう使えると思います。

No.7 回答者： sakenomo 回答日時： 2003/11/26 22:15

＃４です。

>　マウスの形が砂時計と矢印を行き来していて、だいぶチラつくのですが、

こちらでもテストしていますが、マウスポインターのちらつきは見られませんでした。ただ、マウスをすばやく動かすとイベントが発生しないようで、テキストボックスが消えないことがありますが。(^_^;)

もしかするとテキストボックスは、コントロールツールボックスのテキストボックスを使っていらっしゃるでしょうか。そうだと、テキストボックスの上にポインターが乗ると、勝手に文字入力用に形が変わってしまいますね。テキストボックスは、"図形描画"のものを使うことをお勧めします、最初に書いておけばよかったですね。

この回答へのお礼

ご回答どうもありがとうございます。
テキストボックスはコントロールツールのものを使っていました…(~_~;)
図形描画のテキストボックスを使うとうまくいきました。

> マウスをすばやく動かすとイベントが発生しない
たぶん、そんなに早くマウスを動かして操作する人がいませんので大丈夫です！

長い間どうもありがとうございました。
またわからないことがありましたら、よろしくお願いいたします。

お礼日時：2003/11/27 10:39

No.6 回答者： 78tch 回答日時： 2003/11/26 09:02

＃３ですが、いや～、昨日お風呂で思いついたんですが＃４さんにもう書かれてました。

MouseMoveでなにか別のテキストボックスのキャプションとか、セルの値とかを表示させたいコメントにして、LostFocusぐらいでコメント非表示っていうのでどうでしょうかね。
それでもイメージとは違うとは思いますけど。

この回答への補足

長い間どうもありがとうございました。
またわからないことがありましたら、よろしくお願いいたします。

補足日時：2003/11/27 10:39

この回答へのお礼

ご回答ありがとうございます。
ボタンとイメージのあるセルに最初にコメントを入れておいて、
Mousemoveで、コメント表示/非表示を切り替えるといいんですね。

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("F11").Comment.Visible = True
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("F11").Comment.Visible = False
End Sub

こんな感じになりました。ありがとうございます！

お礼日時：2003/11/26 11:28

No.5 回答者： sakenomo 回答日時： 2003/11/25 20:48

＃４です、ちょっと補足を。

>　ボタンの下に、ボタンより一回り大きなイメージコントロール

「ボタンの下に」とは、イメージを右クリック、"順序"で、ボタンの背面に移動させるという意味です。

No.3 回答者： 78tch 回答日時： 2003/11/25 17:58

いま見たら

mousemove
がおっしゃってるパターンじゃないですか？
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox ("test")
End Sub
ただこれは完成イメージとはちょっと違いますね。

この回答へのお礼

ご回答ありがとうございます。
Mousemoveはやってみたのですが、Msgboxやユーザーフォームだと作業が止まってしまい、テキストボックスなどはロードできないと言われてしまいました…。

お礼日時：2003/11/26 10:52

No.2 回答者： 78tch 回答日時： 2003/11/25 17:40

クリックせずにフォーカスさせるには土台になるユーザーフォーム上にボタンを配置してやり、「Tab」キーでフォーカスを移していく必要があるのでしょうね。

この辺りがＶＢＡとＶＢの違い（ボタンがウインドウか単なるコントロールかという）かもしれませんので、ネットでよく探してみてください。

この回答へのお礼

ご回答どうもありがとうございます。
やはりTabキーでフォーカスしようとすると、ユーザーフォーム上で配置しなければいけないのですね。
エクセルのバージョンが97ですので、
ユーザーフォーム.Show vbModeless
という手が使えず、ボタンを常に表示しておく必要もありますので、ボタンをシート上に配置しているのですが、
なかなかむずかしいですね…。

お礼日時：2003/11/25 17:59

No.1 回答者： 78tch 回答日時： 2003/11/25 17:15

CommandButton1_GotFocus()

でどうですか。
ＶＢＡを使ってらっしゃるようですので
Private Sub CommandButton1_Click()
のソースのどこかにポインタを置いて、ウインドウの
「Click↓」となってるところの「↓」を押すと関数が出来ると思いますよ。
この「↓」を押して出てくる以外のイベントはコマンドボタンオブジェクトにはありませんのでできませんが、逆にコマンドボタンにはこれだけのイベントがあるのだなぁ、と、他のオブジェクトを見るときにも見てみて。

この回答へのお礼

早速のアドバイスどうもありがとうございます。
GotFocus ではどうしたらクリックせずにフォーカスできるのかちょっとわかりませんでした。
Click↓内の、BeforeDrugOver から MouseUp までとりあえず試してみたのですが、どれもマウスをのせただけというわけにはいかないのですね…。
OnMouse みたいなのがあるかと思ったのですが…。

お礼日時：2003/11/25 17:30