Excelでロールオーバー効果ができないでしょうか？

Excelでボタンにハイパーリンクを付ける際に、ロールオーバー効果のようにカーソルが来ると色が変わるというようなことができないでしょうか？
宜しくお願いします。

No.3 回答者： end-u 回答日時： 2008/04/21 17:03

こんにちは。

例えば CommandButton1 の下にひと廻り大きな Label を配置すると
『コントロールツールボックスのコントロールのMouseMoveイベント』で
できるようですね。

'SheetModule
Option Explicit

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
　　　　　　　　　　　　　　　　　　 ByVal Shift As Integer, _
　　　　　　　　　　　　　　　　　　 ByVal X As Single, _
　　　　　　　　　　　　　　　　　　 ByVal Y As Single)
　　Call bcchg(&H8080FF)
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, _
　　　　　　　　　　　　　　 ByVal Shift As Integer, _
　　　　　　　　　　　　　　 ByVal X As Single, _
　　　　　　　　　　　　　　 ByVal Y As Single)
　　Call bcchg(&H8000000F)
End Sub

Private Sub bcchg(c As Long)
　　With CommandButton1
　　　　If .BackColor = c Then Exit Sub
　　　　.BackColor = c
　　End With
End Sub

Label の大きさとマウススピードによっては感知できないかもしれませんので
念の為 Worksheet_SelectionChange にも元に戻すコードをかいておけばいいかもしれません。

この回答へのお礼

ご回答ありがとうございました！

しかし私にはがお回答の内容が高度すぎて分かりません・・

これをコピペすればよいのでしょうか？

一度試してみます。

取り急ぎお礼まで^0^/

お礼日時：2008/04/25 07:24

No.2 回答者： marbin 回答日時： 2008/04/21 13:22

私の提示した方法だと、カーソルが通り過ぎても

色は付いたままになります。
ボツですね。

No.1 回答者： marbin 回答日時： 2008/04/21 13:05

コントロールツールボックスのコントロールなら、

MouseMoveイベントでそれらしきことは出来ます。