ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Tela Cheia (Fullscreen) Excel 2007

Dicas dos mais variados tipos, necessidades, angústias, enfim
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Tela Cheia (Fullscreen) Excel 2007

Mensagem por Mauro Coutinho » Seg Out 31, 2011 7:44 pm

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


linelson
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Sex Dez 26, 2014 10:19 am

Re: Tela Cheia (Fullscreen) Excel 2007

Mensagem por linelson » Sex Dez 26, 2014 10:41 am

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



Responder