VBA笔记——文本框添加剪切、复制、粘贴、删除快捷键

• 模块代码

Private ActiveTB As MSForms.TextBox
Public Sub CreateShortCutMenu()
    Dim ShortCutMenu As CommandBar
    Dim ShortCutMenuItem As CommandBarButton
    Dim sCaption As Variant
    Dim iFaceId As Variant
    Dim sAction As Variant
    Dim i As Integer
    sCaption = Array("剪切(&C)", "复制(&T)", "贴粘(&P)", "删除(&D)")
    iFaceId = Array(21, 19, 22, 1786)
    sAction = Array("Actio