sieht jemand den Fehler in meinem Code ? Bekomme die bescheuerten FaceIds
einfach nicht in meine Symbolleiste !
Danke und Gruß aus HH
Tom
Sub GEP_Menü()
Dim NeuesMenue As CommandBar, St As CommandBarButton, Pop1 As CommandBarPopup
On Error Resume Next
Application.CommandBars("GEP").Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.Add(Name:="GEP", temporary:=True)
With NeuesMenue
.Position = msoBarTop
.Visible = True
End With
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlPopup)
Pop1.Caption = "GEP Abrechnung"
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Öffnen"
.Style = msoButtonCaption
.OnAction = "GEP_Öffnen"
.FaceId = 643
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Manipulieren"
.Style = msoButtonCaption
.OnAction = ""
.FaceId = "1382"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "E-Mail Versand"
.Style = msoButtonCaption
.OnAction = ""
.FaceId = 325
End With
End Sub