AW: Hilfetext bei Button
10.10.2005 20:49:28
Matthias
Hallo Stephan,
in einer Userform gibt es ganz einfach die Eigenschaft "ToolTipText".
Auf einem Tabellenblatt leider nicht.
Alternative:
Erstelle mit der Zeichnen-Symbolleiste ein Textfeld, positioniere und beschrifte es.
Dann ins Tabellenblattmodul:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Const rand = 5
With CommandButton1
If X > .Width - rand Or X < rand Or _
Y > .Height - rand Or Y < rand Then
ActiveSheet.Shapes("Text Box 2").Visible = False
Else
ActiveSheet.Shapes("Text Box 2").Visible = True
End If
End With
End Sub
Mit der Konstante "rand" musst du ein wenig spielen, je größer, umso mehr muss man zum Einblenden der Textfeld in die Mitte des Buttons fahren, je kleiner, desto größer ist die Wahrscheinlichkeit, dass das Textfeld bei einer schnellen Mausbewegung nicht ausgeblendet wird.
Gruß Matthias