为宏设置Alt+左右方向键作为快捷键不起作用

hw124739523

写了段代码，放在模块里，主要目的是按下Alt+左右方向键后执行对应的过程，但是不起作用。

代码如下：

1. Sub 设置快捷键()
   
2.     Application.OnKey "%{left}", "层级减小"
   
3.     Application.OnKey "%{right}", "层级增加"
   
4. End Sub
   
5. Public Sub 层级减小()
   
6. '    Set rng = Selection
   
7.     Debug.Print "减小"
   
8.     MsgBox "减小"
   
9. End Sub
   
10. Public Sub 层级增加()
    
11. '    Set rng = Selection
    
12.     Debug.Print "增加"
    
13.     MsgBox "增加"
    
14. End Sub

复制代码

prome3

没什么问题啊：


？

hw124739523

问题出在“设置快捷键”这个sub没有运行

MaterSeCret

rng没有定义