Hallo Leute.
Der Wunsch eines Icons hält mich gerade gefangen. Was ich haben wollt eist folgendes:
1. Stufe: Neue Toolbar.
2. Stufe: Untermenü auf der Toolbar, aber als Icon, nicht als Text
3. Stufe: In dem Untermenü einen Button im Editformat
Die Verbindung Unermenü als Icon und darunter liegendes Control bekomme ich aber nicht hin. Wo liegt mein Unwissen/ der Denkfehler?
</p><pre>Sub Toolbar()
On Error Resume Next
Application.CommandBars("MyToolBar").Delete
On Error GoTo 0
' add new toolbar
With Application.CommandBars.Add(Name:="MyToolBar", Position:=msoBarRight, Temporary:=True)
.Visible = True
End With
' add main menu control to the toolbar
With Application.CommandBars("MyToolBar").Controls.Add(Type:=msoBarTypeMenuBar, Temporary:=True)
.Caption = "12345"
.Tag = "MyControl"
.Style = msoControlGraphicPopup
.FaceId = 499
.Visible = True
End With
' create control for each worksheet
With Application.CommandBars("MyToolBar").Controls(1).Controls.Add(Type:=msoControlEdit, Temporary:=True)
.Visible = True
End With
End Sub</pre><p>
Gruß
Arthur