Kontextmenüpunkt positionieren
30.01.2008 07:46:00
Herbert
Ich habe im Kontextmenü einen neuen Menüpunkt hinzugefügt, kommen aber mit dem Positionieren nicht klar, so wie unten ist es der letzte Eintrag:
Wie kann ich "Werte einfügen" als 5. Menüpunkt unter Inhalte einfügen. . . im Zellkontextmenü einfügen?
Gruß Herbert
Sub NewBtn()
Dim oBtn As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell") _
.Controls("Werte einfügen").Delete
On Error GoTo 0
Set oBtn = CommandBars("Cell").Controls.Add
With oBtn
.Caption = "Werte einfügen"
.OnAction = "wert_ein"
.Style = msoButtonCaption
End With
End Sub