Kontextmenü der rechten Maustaste anpassen
11.05.2008 14:30:03
Reinhard
jemand wollte das Kontextmenu der rechten Maustaste ergänzen, zwar in Word, aber das spielt für meine Anfrage hier keine Rolle. Ich weiß das geht mit Controls.Add.
Ich habe da Excel-Vba Code von Michael Schwimmer, den habe ich nur leicht umgeschrieben um herauszufinden wle denn die Nummer des Kontextmenus der rechten Maustaste ist, sowohl in Word als auch in Excel um dann dort mit .Controls.Add einen Eintrag zu ergänzen.
Im Kontextmenu in Excel ist u.a. der Menupunkt "Auswahlliste" enthalten, aber wenn ich im Ergebnis des Codes nach "lliste" suche erhalte ich keinen Treffer!?
Auch beim manuellen Durchgehen der Ergebnisliste im Direkt-Fenster fand ich die Unterpunkte des rechten Mauskontextmenüs nicht.
Was mache ich da falsch?
Der Code:
Sub PopupNames()
Dim i As Integer, ii
For i = 1 To Application.CommandBars.Count
If CommandBars(i).Type = msoBarTypePopup Then
With Application.CommandBars(i)
Debug.Print i
For ii = 1 To .Controls.Count
Debug.Print .Controls(ii).Caption
Next ii
End With
End If
Next i
End Sub
Danke ^ Gruß
Reinhard