Microsoft Projectでタスクの開閉をショートカットで実行する

Microsoft Projectをキーボードだけで操作できるようにしたくて、ショートカットを調べていた。
そしたら、タスクの開閉のショートカットはないということを知り、急遽作成。
あまり需要ないのかな。

' タスクを閉じる
Sub MyOutlineHideSubTasks()
    OutlineHideSubTasks
End Sub

' タスクを開く
Sub MyOutlineShowSubTasks()
    OutlineShowSubTasks
End Sub

で、これを、マクロのショートカットに登録。
Ctrl + q: 開く
Ctrl + e: 閉じる

快適。