Hallo,
mit folgendem Code belege ich das Kontextmenü der rechten Maustaste neu:
Set obar = CommandBars("Cell")
With obar
For Each c In .Controls
c.Delete
Next
For i = 1 To 3
Set obtn = obar.Controls.Add
With obtn
.Style = msoButtonIconAndCaption
.Height = 20
.Width = 1
End With
Next
End With
obar.Controls(1).Caption = "test1"
obar.Controls(2).Caption = "test2"
obar.Controls(3).Caption = "test3"
Was muss ich machen, damit beim Zeigen auf ein Control ein Untermenü angezeigt wird?
Gruß Emil