rivate Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If 2 < X < 14 And 2 < Y < 14 Then Label1.Visible = True Else Label1.Visible = False End If End Sub ワークシート上に配置したコマンドボタン（縦、横共に大きさ１５） 上にマウスがある場合はラベル１を表示。 ボタンの端にある場合は非表示にしたいのですがうまくいきません。 （わけあってユーザーフォームは使わずに作りたいのですが。。。←ユーザーフォーム上はmousemoveイベントがある） 透明なラベルを後ろに配置し、そこにマウスが乗った時に ラベル１を非表示にすることはできましたが、 透明なラベルをクリックすると見栄えが悪いので上記の方法を取り組んでいます。 よろしくお願いいたします。
