Dashboard anual com produtividade e comportamento de demanda Full Screen - Microsoft Excel

Olá amigos,
Venho postar um dica na qual utilizo muito quando estou desenvolvendo um Painel de Indicadores (Dashboard) é um recurso que faz diferença, principalmente quando este painel é utilizado em reuniões pela diretoria, clientes ou até mesmo em análises, Aprenda a Criar Dashboards – Microsoft Excel com tela FullScreen.

[APRENDA TAMBÉM]: 4 FORMAS DE ALTERAR O TÍTULO DO GRÁFICO

Dashboard anual com produtividade e comportamento de demanda Full Screen - Microsoft Excel

Dashboard anual com produtividade e comportamento de demanda Full Screen – Microsoft Excel

O recurso que venho postar é o de deixar a tela em modo Full Screen para apresentações, é muito semelhante ao modo de apresentação do Power Point, é um  código que atua nas propriedades da aplicação.

Sub Tela_FullScreen()

Dim barras
On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next

Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False

End Sub

Explicando o código:
Podemos notar que a única propriedade que está “TRUE” é a Application.DisplayFullScreen, no caso ela que faz com que a “Ribbon”(Menu superior) fique oculto, já as outras propriedades atuam na aplicação e na janela ativa estando todas como “FALSE”.

Propriedade O que é?
Application.DisplayFullScreen  TELA CHEIA
ActiveWindow.DisplayHeadings  LINHAS DE GRADE
Application.DisplayFormulaBar  BARRA DE FÓRMULAS
ActiveWindow.DisplayHorizontalScrollBar  BARRA ROLAGEM HORIZONTAL
ActiveWindow.DisplayVerticalScrollBar  BARRA DE ROLAGEM VERTICAL
ActiveWindow.DisplayWorkbookTabs  PLANILHAS (ABAS)
Application.DisplayStatusBar  BARRA DE STATUS

Importante:

Este código modifica o Microsoft Excel como um todo, por isso se você inserir o código acima e não resetar as propriedades antes de fechar o Microsoft Excel, todo e qualquer arquivo aparecerá em modo Full Screen, por isso vá até o editor de código “ALT + F11” no seu projeto clique em “EstaPasta_de_trabalho” em Workbook altere o evento para “BeforeClose” e cole o código dentro da Private Sub criada.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim barras
On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next

Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False

End Sub

Desta forma o Excel antes de ser fechado voltará as suas propriedades normais.

Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.

Um abraço. DG




.

Sobre o Autor

Comentários

  1. Elizeu Martins

    Boa tarde meu caro!

    Parabéns pelas explicações.
    Gostaria de saber se é possível disponibilizar o seu Dashboard para dowload:
    Obrigado

  2. André Valente

    Boa noite,

    Como faço para te encaminhar um E-mail com a minha planilha ?

    Preciso deixar ela sempre no modo Full Screen, mas, não estou conseguindo.

    Att,

  3. Ferreira

    A ideia é muito boa.
    Implementei essa rotina e realmente funcionou o Full Screen, entretanto a função copiar de uma célula de outra planilha dentre da mesma pasta parou de funcionar.
    Há uma maneira de implementar esse procedimento e continuar copiando conteúdos de células de outra planilhas? (exemplo: se implementado na “Plan1” é possível copiar uma célula da “Plan2” com “CRTL + C” e “CRTL +V”).

    1. Douglas Godoy Resposta do Autor

      Olá Ferreira,

      Geralmente não costuma dar problema ou ter este tipo de problema de copiar e colar.

      Acredito que sua planilha esteja com algum problema, caso isso persistir me envie que dou uma olhada! (douglas@douglasgodoy.com.br)

      Abs

      Douglas

    1. Douglas Godoy Resposta do Autor

      Olá Jorge,

      Depende do objetivo do projeto, existem maneiras de não exibir as barras conforme o projeto.

      Estas maneiras são via VBA porém passiveis de aplicação.

      Se desejar saber mais me escreva!

      Abraços

      1. Herdney

        Muito boa dica. Só esquece de mencionar que no evento antes de fechar o workbook, deve inverter os valores, ficando assim:

        Private Sub Workbook_BeforeClose(Cancel As Boolean)

        Dim barras
        On Error Resume Next

        For Each barras In Application.CommandBars
        barras.Enabled = False
        Next

        Application.DisplayFullScreen = False
        ActiveWindow.DisplayHeadings = True
        Application.DisplayFormulaBar = True
        ActiveWindow.DisplayHorizontalScrollBar = True
        ActiveWindow.DisplayVerticalScrollBar = True
        ActiveWindow.DisplayWorkbookTabs = True
        Application.DisplayStatusBar = True

        End Sub

        Dependendo de que for utilizar o código, pode demorar a entender.
        Mas corroboro que o código é muito bom e útil.

        Abs

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *