eigene Symbolleiste, msoControlComboBox
19.06.2009 11:24:40
Peter
gestern haben mir Luschi und NoNet ganz gut geholfen, meine eigene Symbolleiste zu programmieren. Es funktioniert unter XP auch einwandfrei. Jetzt wollte ich das Programm auch unter Office 2007 starten. Während der Button Parameter und Grafik und verschiedene ähnlich aufgebaute Schalter richtig angezeigt werden (wenn man die Symbolleiste als Addin öffnet), wird der Schalter Zeit nicht angezeigt. Ich habe mit Office 2007 keinerlei Erfahrung. Kann mir jemand helfen und zeigen, wie ich das Makro verändern muss, damit auch der Schalter für die Auswahl Zeit angezeigt wird?
Hier mein Code:
Sub SymbolleisteErstellen()
Dim cBox As CommandBarControl
Dim Param As CommandBarControl
Dim Button As CommandBarButton
'Button Parameter einrichten
Set Param = Application.CommandBars("NeueSymbolleiste").Controls.Add(Type:=msoControlPopup)
With Param
.Caption = "Parameter"
.TooltipText = "Parameter auswählen"
.Width = 60
.Height = 30
End With
'Schalter Grafik
Set Button = Param.Controls.Add
With Button
.BeginGroup = True
.Caption = "Grafik"
.Style = msoButtonIconAndCaption
.TooltipText = "Grafik anzeigen"
If UCase(Sheets("Frei").Range("G63")) = "JA" Then
.State = msoButtonDown
Else
.State = msoButtonUp
End If
.OnAction = Dateiname & "!Grafik"
End With
'Schalter Zeit
Set cBox = Param.Controls.Add(Type:=msoControlComboBox)
With cBox
.AddItem "10", 1
.AddItem "11", 2
.AddItem "12", 3
.AddItem "13", 4
.AddItem "14", 5
.Text = CStr(Sheets("Frei").Range("g61"))
.Caption = "Zeit"
.DropDownWidth = 30
.Visible = True
.OnAction = Dateiname & "!MaxStunden"
End With
End Sub
Danke für Hilfe
Grüße
Peter