Como saber qual o modo de exibição atual do Project através de macro.

Recentemente, me deparei com a necessidade de através de uma macro saber qual era o modo de exibição que o usuário estava utilizando quando executada. Pesquisei nas referências do próprio Project e não consegui achar muita coisa. Entre outras pesquisas na internet e testes diretamente nas macros consegui a solução. De certa forma é bem simples. Abaixo segue um exemplo:

Sub ModoExibicaoAtual()
   Dim visao As ViewSingle
   Set visao = ActiveWindow.ActivePane.View
   MsgBox visao.Name
End Sub

Com isso, é possível no momento da execução saber qual o modo o usuário está utilizando.


Até mais.