Arquivo da tag: FullScreen

Dicas – Tela Cheia (Fullscreen) Excel 2007

Do colega Mauro Coutinho do nosso fórum

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:

    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.

    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:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&p=6855#p6855