Criar Dashboards – Microsoft Excel com tela FullScreen

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.

[codigo]

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

[/codigo]

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.

[codigo]

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

[/codigo] [ok]Desta forma o Excel antes de ser fechado voltará as suas propriedades normais.[/ok]

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

Um abraço. DG

Comentários

  • Fabiano Aparecido Alves
    Responder

    Gostaria de receber a planilha

  • Elizeu Martins
    Responder

    Boa tarde meu caro!

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

  • André Valente
    Responder

    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,

  • Ferreira
    Responder

    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”).

    • Douglas Godoy

      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

  • Jorge
    Responder

    O Problema se minimizar ou maximizar as barras de ferramenta voltam todas.

    • Douglas Godoy

      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

  • Jonathan – ControlDesk
    Responder

    Muito útil o conteúdo, agora sim meus relatórios ficarão TOPs

    • Douglas Godoy

      Olá Jonathan,

      Muito obrigado pela visita e pelo comentário!

      Um abraço!

      Douglas Godoy

  • Simone
    Responder

    Obrigada! Parabéns pelo conteúdo do site.

    • Douglas Godoy

      Simone,

      Muito obrigado pela visita e pelo comentário.

      Abs

      • 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

  • José Carlos
    Responder

    Gostaria de saber se é possível disponibilizar este dashboard para download.