Visual Studio Excel加载项-VB.Net-Application.OnKey错误

时间:2018-06-23 18:22:21

标签: excel vb.net

在Visual Studio中,我使用用户窗体创建了一个加载项,用户可以在其中输入他们想要控制加载项按钮/子例程的热键。当有人单击用户窗体上的“确定”按钮时,我希望热键的输入成为所有Excel实例(而不仅仅是活动工作簿)的该子项的OnKey。不幸的是,这段代码并不能解决问题,而且我还担心已经安装在Excel中的其他加载项将优先于我尝试制作的热键。

1)您能否看一下我的代码并帮助我了解我做错了什么?

2)如何做到这一点,以使我的OnKey优先于其他也为宏分配了热键的插件?

Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click

    Dim ActiveWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
        Globals.ThisAddIn.Application.ActiveWorkbook.Worksheets(1)

    '**"TBFontColorToggle" is the text box on the userform where user types in preferred hotkey**
    Dim FontColorToggleOnKey
    FontColorToggleOnKey = TBFontColorToggle

    '**Ctrl + Shift + User generated hotkey should run the subroutine in Visual Studio**
    Globals.ThisAddIn.Application.OnKey("+^FontColorToggleOnKey", "Sub_BtnFontToggle")

    Me.Hide()

End Sub

0 个答案:

没有答案