ToolsCustomizeKeyboardShortcut

loquat

有小键盘的电脑可以用快捷键Ctrl+Alt+Num+激活这个宏
没有小键盘的可以模拟按键激活这个宏

1. Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
2. Public Const KEYEVENTF_KEYUP = &H2&
   
3. Sub ToolsCustomizeKeyboardShortcut_run()
   
4.     keybd_event vbKeyControl, 0, 0, 0
   
5.     keybd_event vbKeyMenu, 0, 0, 0
   
6.     keybd_event vbKeyAdd, 0, 0, 0
   
7.     keybd_event vbKeyAdd, 0, KEYEVENTF_KEYUP, 0
   
8.     keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
   
9.     keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
   
10. End Sub

复制代码

那么我的问题来了，为嘛这个命令没办法直接用Application.Run调用呢
Application.Run "ToolsCustomizeKeyboardShortcut"
提示“不能运行指定的宏”