如何在MS Project中为宏/模块分配快捷键？代码无效求解

MS Project支持为宏分配快捷键，你写的Application.OnKey代码逻辑是对的，没生效主要是代码存放位置和激活方式的问题，按下面步骤调整就能解决：

• 把代码放在标准模块中：打开VBA编辑器（按Alt+F11），右键点击左侧项目列表→「插入」→「模块」，将shortcut_D和MyMacroD两个宏都粘贴到这个新建的标准模块里，不要放在ThisProject对象或类模块中。
• 先手动激活快捷键绑定：在VBA编辑器中选中shortcut_D宏，按F5运行一次；或者回到MS Project界面，点击「开发工具」选项卡→「宏」，找到shortcut_D并执行，这一步完成后Shift+Alt+D的绑定才会生效。
• 验证宏本身的可用性：先单独运行MyMacroD宏，确认它能正常执行，排除宏自身的错误导致的快捷键失效。
• 实现自动绑定（可选）：如果想每次打开文件自动绑定快捷键，把绑定代码移到ThisProject的Project_Open事件中：

Private Sub Project_Open(ByVal pj As Project)
    Application.OnKey "%+{D}", "MyMacroD"
End Sub

这样每次打开该MS Project文件时，Shift+Alt+D快捷键会自动绑定到MyMacroD宏。

内容的提问来源于stack exchange，提问作者Jesper Kindt Larsen