Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices

Userform mit graphischer Menüleiste

Entstanden aus einer Frage in einem Forum ...

Es soll eine Menüleiste in eine Userform intergriert werden, die Bildelemente aus den Excel-Menüleisten enthält. Es können natürlich auch eigene Icons verwendet werden. Hier also eine Bastellösung (ExcelXP), für das Sie zunächst drei Images nebeneinander, oben links, in der Userform platzieren. Dann folgenden Code in das Klassenmodul der Userform ...


Option Explicit Private Sub Image1_Click() MsgBox "Irgendeine Aktion, z.B. Drucken." End Sub Private Sub Image2_Click() MsgBox "Irgendeine Aktion, z.B. Speichern." End Sub Private Sub Image3_Click() MsgBox "Irgendeine Aktion, z.B. Öffnen." End Sub Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BorderStyle = fmBorderStyleSingle Image2.BorderStyle = fmBorderStyleNone Image3.BorderStyle = fmBorderStyleNone End Sub Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image2.BorderStyle = fmBorderStyleSingle Image1.BorderStyle = fmBorderStyleNone Image3.BorderStyle = fmBorderStyleNone End Sub Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image3.BorderStyle = fmBorderStyleSingle Image1.BorderStyle = fmBorderStyleNone Image2.BorderStyle = fmBorderStyleNone End Sub Private Sub UserForm_Activate() Image1.Picture = CommandBars("Standard").Controls(6).Picture Image1.ControlTipText = "Drucken" Image2.Picture = CommandBars("Standard").Controls(3).Picture Image2.ControlTipText = "Speichern" Image3.Picture = CommandBars("Standard").Controls(2).Picture Image3.ControlTipText = "Öffnen" End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BorderStyle = fmBorderStyleNone Image2.BorderStyle = fmBorderStyleNone Image3.BorderStyle = fmBorderStyleNone End Sub

Wie nützlich finden Sie diesen Tipp?
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)