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
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
Deixe um comentário