|
56. Beispiel Ersatzlösung für
ControlTippText mit Zeilenumbruch
Aufgabenstellung:
Es
sollte ein ControlTippText mit Zeilenumbruch in
einer UserForm erstellt werden. Da das
ControlTippText-Ereignnis nicht einen
Zeilenumbruch zu läst, wurde das mit einem
Labelfeld realisiert. Für alle, die nicht wissen
was der ControlTippText ist: Das ist eine
Kurzbeschreibung einer Schaltfläche, die
angezeigt wird, wenn man mit der Maustaste eine
Schaltfläche z.B. in der Symbolleiste berührt
und den Mauszeiger darauf verharren läst.
Diese Beispiele stehen auch als
Beispieldatei
zum Download zur Verfügung.
|
|
Realisiert wurde das durch eine VBA-Lösung.
In dieser Beispieldatei wurde eine UserForm angelegt, die ein Labelfeld, einen Optionsbutton, einen CommandButton, ein Textfeld und eine CheckBox enthält. Das Labelfenster dient zur Anzeige des so genannten ControlTippTextes. Der Text wird durch die MouseMove-Eigenschaft eingeblendet.
Der Code ist in das VBA-Projekt der UserForm
einzufügen und zeigt beim Berühren der CheckBox1 den entsprechenden Text in dem Labelfenster. Für alle anderen Objekte in der UserForm ist der VBA-Code identisch, bis auf das MouseMove-Eigenschaft des Control-Objekts, die muss an das jeweilige Control-Objekt angepasst werden.
|
Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Wenn Variable "X" größer der Zahl 5 und Variable "Y" größer der Zahl 5 und
'Variable "X" kleiner der Zahl 70 und Variable "Y" kleiner der Zahl 70, dann...
If X > 5 And Y > 5 And X < 70 And Y < 70 Then
'...Labelfeld 1 einblenden und...
Label1.Visible = 1
'... entsprechenden text in Labelfeld eintragen...
Label1.Caption = "Ich bin eine CheckBox" & Chr(10) & "und zeige beim Berühren einen Text mit Zeilenumbruch an."
'...ansonsten...
Else
'...Labelfeld ausblenden
Label1.Visible = 0
'Abfrage Ende
End If
End Sub
|
Dieses Beispiel wurde unter den in der
Tabelle aufgeführten Versionen getestet.
|
|
A |
B |
C |
D |
E |
|
1 |
|
|
|
|
|
2 |
|
Excel - Version |
Getestet |
|
|
3 |
|
|
|
|
4 |
|
Excel 2007 |
12.0 |
a |
|
|
5 |
|
Excel 2003 |
11.0 |
a |
|
|
6 |
|
Excel 2002 |
10.0 |
a |
|
|
7 |
|
Excel 2000 |
9.0 |
a |
|
|
8 |
|
Excel 97 |
8.0 |
a |
|
|
9 |
|
|
|
|
|
|
10 |
|
Anzahl der Downloads: |
|
|
|
11 |
|
|
|
|
|
|
12 |
|
Dieses Beispiel wurde bereits
x
aufgerufen. |
|
|
13 |
|
|
|
14 |
|
|
|
|
|
|
>
Beispieldatei herunterladen
<
Sollten beim Ausführen der Beispieldatei Fehler
auftreten, bitte ich darum, mir eine Mail mit der
Fehlerbeschreibung an
fehler@excelbeispiele.de
zu schicken.
Danke!
Möchten Sie www.excelbeispiele.de in Ihre Favoriten aufnehmen? Dann Klicken Sie hier.
|
|