Untermenü Popup
16.01.2004 11:55:39
Sven
Ich Habe ein eigenes Menü erstellt, möchte aber, daß sich bei Anklicken des Buttons "Farbe" ein Untermenü öffnet, wo ich die jeweilige Farbe wählen kann (sprich, die Makris), hier mein jetzoger code:
Private Sub workbook_open()
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim i%
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Urlaub", _
temporary:=True, Position:=msoBarTop)
With cb
.Left = 50
End With
On Error GoTo 0
If Application.CommandBars("Urlaub").Visible = False Then
cb.Visible = True
For i = 1 To 1
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
Select Case i
Case 1
.Style = msoButtonIcon
.FaceId = 417
.OnAction = "farbe"
.TooltipText = "einfärben"
.Width = "25"
End Select
End With
Next i
End If
Ich danke Euch !!!
Sven