Probleme mit Menübefehl
14.04.2008 20:37:00
Christoph
ich habe eine Frage zu Menübefehlen unter Excel 2003. Per VBA will ich alle Menübefehle des Cells Menüs bis auf "Kopieren" und "Einfügen" löschen. Dies will ich gerne per ID Abfrage durchführen, da ich für einen internationalen Kunden das Projekt erstelle und ich nicht sagen kann in welcher Sprache der Anwender schreibt. Es reicht in diesem Fall nur Englisch aus.
Am einfachsten wäre es, wenn ich die Menüs löschen würde. Dies habe ich in einer Schleife durchgeführt und somit ist das Cells Menü geleert. Danach würde ich gerne die beiden Befehle entweder wieder einblenden oder nur für diese beiden Befehle einen eigenen Menüpunkt erstellen.
Was klappt:
For Each cBar In Application.CommandBars("Cell").Controls
cBar.Delete
Next cBar
Was nicht klappt:
Set oMenu = ShortcutMenus(xlWorksheetCell)
.Add ID:=19 ' ("FEHLER")
.Add Caption:="Row(s) insert", OnAction:="ZeileTief" ' ("FUNKTIONIERT")
Auch mit FindControl hatte ich kein Glück.
Eventuell kann mir ja jemand bei meinem Problem helfen.
mfg und besten Dank im voraus
Christoph