Sub CreateRichTextShortcutMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl
' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("cmdRichTextRightClick", msoBarPopup, False, True)
With cmbRightClick
' Add the Copy command.
Set cmbControl = .Controls.Add(msoControlButton, 19, , , True)
' Add the Cut command.
Set cmbControl = .Controls.Add(msoControlButton, 21, , , True)
' Add the Paste command.
Set cmbControl = .Controls.Add(msoControlButton, 22, , , True)
' Add the Bold command.
Set cmbControl = .Controls.Add(msoControlButton, 113, , , True)
cmbControl.BeginGroup = True
' Add the Italic command.
Set cmbControl = .Controls.Add(msoControlButton, 114, , , True)
' Add the Underline command.
Set cmbControl = .Controls.Add(msoControlButton, 115, , , True)
' Add the Font Color command.
' Set cmbControl = .Controls.Add(msoControlButton, 3076, , , True)
' Add the BackGround Color command.
' Set cmbControl = .Controls.Add(msoControlButton, 3077, , , True)
' Add the Bigger Font command.
' Set cmbControl = .Controls.Add(msoControlButton, 62, , , True)
' Add the Smaller Font command.
' Set cmbControl = .Controls.Add(msoControlButton, 63, , , True)
End With
Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub