AW: Checkbox und Togglebutton
K.Rola
Hallo,
hier was zum Basteln:
Option Explicit
Option Private Module
Const MNAME As String = "DeineLeiste"
Sub make_Menu()
Dim cb As CommandBar, cbb As CommandBarButton
Call delete_Menu
Set cb = CommandBars.Add(MNAME)
Set cbb = cb.Controls.Add(1)
With cbb
.Style = 3
.Caption = "CheckBox1"
.FaceId = 2471
.OnAction = "MakroCheck"
End With
Set cbb = cb.Controls.Add(1)
With cbb
.Style = 3
.Caption = "ToggleButton1"
.FaceId = 478
.OnAction = "Toggle"
.State = 0
.BeginGroup = True
End With
With cb
.Position = 4
.Visible = True
.Left = 50
.Top = 150
End With
End Sub
Sub delete_Menu()
On Error Resume Next
CommandBars(MNAME).Delete
End Sub
Private Sub MakroCheck()
If CommandBars(MNAME).Controls(1).FaceId = 2471 Then
MsgBox "Checkbox nicht geklickt!"
CommandBars(MNAME).Controls(1).FaceId = 220
Else
MsgBox "Checkbox geklickt!"
CommandBars(MNAME).Controls(1).FaceId = 2471
End If
End Sub
Private Sub Toggle()
If CommandBars(MNAME).Controls(2).State = 0 Then
MsgBox "Toggle nicht geklickt!"
CommandBars(MNAME).Controls(2).FaceId = 1786
CommandBars(MNAME).Controls(2).State = -1
Else
MsgBox "Toggle geklickt!"
CommandBars(MNAME).Controls(2).FaceId = 478
CommandBars(MNAME).Controls(2).State = 0
End If
End Sub
Gruß K.Rola