Página 1 de 1

Tela Cheia (Fullscreen) Excel 2007

Enviado: Seg Out 31, 2011 7:44 pm
por Mauro Coutinho
Colegas, na Versão Excel 2007, após aplicarmos uma das rotinas convencionais utilizada na v 2003 para deixarmos com a aparencia de tela cheia (FullScreen),se MINIMIZARMOS a tela e depois MAXIMIZARMOS os menus reaparecem.
Então, vale lembrar que isto não ocorre no Excel 2003, mas no Excel 2007 as opções não são mantidas, pelo simples fato do Excel 2007 utilizar "Ribbons", então para se evitar isto devemos utilizar as rotinas abaixo :

Mais uma vez lembrando, é para Excel 2007 :

Código: Selecionar todos

Sub TelaCheia_On()
    'Oculta todos os Menus (Ribbons)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayZeros = False
        .DisplayHeadings = False
        .DisplayGridlines = False
    End With
    
End Sub

Sub TelaCheia_Off()
    'Exibe todos os Menus (Ribbons)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayZeros = True
        .DisplayHeadings = True
        .DisplayGridlines = True
    End With
    
    End Sub
Uma dica para se ocultar osRibbons e exibir somente os Menus é utilizando o confunto de Teclas "CTRL+F1", ou enviar via SendKeys :

A Rotina abaixo não funcionará se rodar no Editor do VBA, a mesma tem dde ser chamada via opção, Caixa de Macros, Excutar, ou "ALT+F8" escolher a rotina "OcultaRibbon" e Excutar.

Código: Selecionar todos

Sub OcultaRibbon()
    Application.SendKeys "^{F1}", True
End Sub
Ainda não dominei todas as tecnicas destes Ribbon, existe tambem a opção de se Personalizar criando um arquivo XML, mas ainda estou estudando aos poucos, mas, pelo pouco que vi até o momento sobre personalização no excel 2007, esta dica é bem simples e aplicável, mas como eu disse, existem outras formas de se lidar com isto, criando personalizações bem mais elaboradas, e para isto usamos arquivo XML.
Não da para repassar tudo aqui, mas de uma olhada no link abaixo, tem um tutorial de personalização, e como eu aina estou estudando a respeito e devido ao meu local de trabalho só ter a v 2003, não pude me aprofundar mais, mas vejam que não é tão dificil :

Um guia para personalizar a Faixa de Opções do 2007 Office
http://64.4.10.145/pt-br/magazine/dd633481

Existe até um programa que pode ser baixado da Microsot para facilitar.

Microsoft Office 2007 Custom UI Editor
http://microsoft-office-2007-custom-ui- ... ormer.com/

Façam os testes, e qualquer duvida retornem no Forum.

[]s

Re: Tela Cheia (Fullscreen) Excel 2007

Enviado: Sex Dez 26, 2014 10:41 am
por linelson
Com o código abaixo dá para entrar e sair do modo "full screen" utililizando apenas um botão:

Sub Full_Screen_On_Off()

Dim fullscreen
Dim barras

fullscreen = Not Application.DisplayFullScreen

On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = Not fullscreen
Next

Application.DisplayFullScreen = fullscreen 'Tela cheia
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings 'LINHAS DE GRADE
Application.DisplayFormulaBar = Not fullscreen 'BARRA DE FÓRMULAS
ActiveWindow.DisplayHorizontalScrollBar = Not fullscreen 'BARRA ROLAGEM HORIZONTAL
ActiveWindow.DisplayVerticalScrollBar = Not fullscreen 'BARRA DE ROLAGEM VERTICAL
ActiveWindow.DisplayWorkbookTabs = Not fullscreen 'PLANILHAS (ABAS)
Application.Displayouttline = Not fullscreen 'Estrutura de Tópicos
Application.DisplayStatusBar = Not fullscreen 'BARRA DE STATUS


End Sub