ich habe in einem Excel-Sheet (nicht UserForm) ein paar CommandButtons untergebracht, die ich mit einem Kommentar versehen will, der eingeblendet wird, sobald der Mauspfeil über den Button bewegt wird.
Hat jemand eine Idee?
Danke vorab.
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
As Single, ByVal Y As Single)
MsgBox "Kommentar"
End Sub
Das ganze funktioniert auch mit einem Label, allerdings muss man in meinem Beispiel irgendwo in die Tabelle klicken um es wieder auszublenden (ich sehe kein Ereignis dass beim Verlassen des Buttons mit der Maus eintritt). Vielleich findet da noch jemand anders eine Lösung?!:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
As Single, ByVal Y As Single)
Label1.Visible = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Label1.Visible = False
End Sub
Klappt es?
Gruß
Uwe
(:o)
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
As Single, ByVal Y As Single)
With Image1
.Width = ActiveWindow.Width
.Height = ActiveWindow.Height
End With
Label1.Visible = True
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
With Image1
.Height = 1
.Width = 1
End With
Label1.Visible = False
End Sub
(musst natürlich vorher ein unsichtbares Image1 im Hintergrund erstellen (siehe Tipp).
Klappt bei mir tadellos. Kannst Du das gebrauchen?
Gruß
Uwe
(:o)