Durch die Ribbons sehen die selbst erzeugten Commandbars 'unaufgeräumt' aus. Deswegen möchte ich Gruppen zusammen fassen. Klappt soweit, wenn da nicht das Control des Typs msoControlEdit wäre. Das wird auf einer Unterebene einfach nicht sichtbar.
Weiß jemand Rat?
Sub CreateSearchBar()
On Error Resume Next
Application.CommandBars("MyBase").Delete
With Application.CommandBars.Add(Name:="MyBase", Temporary:=True)
.Visible = True
' dieses suchfeld wird angezeigt ;o)
With .Controls.Add(Type:=msoControlEdit, Temporary:=True)
.Text = "Search on base"
.Width = 150
End With
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Visible = True
.Caption = "Hello world"
' dieses suchfeld wird leider nicht angezeigt :o(
With .Controls.Add(Type:=msoControlEdit, Temporary:=True)
.Text = "Search on level 1"
.Width = 150
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Suchen"
.OnAction = "Search"
.Style = msoButtonIconAndCaption
.FaceId = 141
End With
End With
End With
End Sub
Gruß, Arthur