Hallo,
ich habe es zwar geschafft in Word das Kontextmenü auf der rechten Maustaste durch ein eigenes via VBA zu ersetzen, aber ich wollte eigentlich nur eine Zeile "unten dran" hängen.
Wo ist der Fehler???
Aufgerufen wird das ganze aus einem Klassenmodul:
Danke vorab für einen Tipp
ich habe es zwar geschafft in Word das Kontextmenü auf der rechten Maustaste durch ein eigenes via VBA zu ersetzen, aber ich wollte eigentlich nur eine Zeile "unten dran" hängen.
Wo ist der Fehler???
Quellcode
- Sub MakeContextMenuinvenio()
- Dim cb As CommandBar
- Dim ctl As CommandBarControl
- On Error Resume Next
- Set cb = CommandBars.Add("invenio", msoBarPopup, False, False)
- If cb Is Nothing Then
- Set cb = CommandBars.Add("invenio", msoBarPopup)
- End If
- cb.Position = msoBarPopup ' Kontextmenü
- ' Menüeinträge kontrollieren/ggf. setzen
- Set ctl = cb.Controls("Felder Aktualisieren")
- If ctl Is Nothing Then
- Set ctl = cb.Controls.Add(msoControlButton, 1)
- End If
- ctl.FaceId = 19 'Kopieren-Symbol
- ctl.Caption = "Felder Aktualisieren"
- ctl.OnAction = "fieldupdater" 'Makro
- ctl.Tag = "fieldupdater"
- Set ctl = Nothing
- On Error GoTo 0
- CommandBars("invenio").ShowPopup
- End Sub
Aufgerufen wird das ganze aus einem Klassenmodul:
Danke vorab für einen Tipp