Notifications
Clear all

Iniciar em tela Cheia

8 Posts
4 Usuários
0 Reactions
9,753 Visualizações
(@albertosilvarj)
Posts: 13
Eminent Member
Topic starter
 

Boa Tarde! Sou novo por aqui e iniciante em Excel. Mas conheço muitos pela COMU do Orkut e sei da boa vontade de todos.
-
Bem, tenho PLAN.1 que possui hiperlinks para as PLANS.2 a 20 (estiquei a barra de rolagem para ocultar estas plans. considerando que o hiperlink não funciona para planilhas ocultas).

Gostaria que as PLANS.2 a 20 abrissem em modo tela cheia. Não entendo NADA de VBA.
Vi outro tópico do mesmo assunto, mas não sei achar o tal evento WORKBOOKS OPEN para habilitar como true.
http://www.planilhando.com.br/vie ... ltar#p3313
-
Será que seria muito complicado eu tentar colocar no meu projeto este recurso, mesmo sem conhecer?

(Seria este o caminho? clicar com o botão direito em cima do nome da plan.>exibir código> SERIA HABILITAR TRUE A ABERTURA DO DISPLAY(?)> Salvar)

Obrigado!!!!

 
Postado : 02/10/2012 10:12 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi mas Vamos lá:
para "achar" o evento workbook_open; voce pode:
Posicionar a seta do mouse sobre o nome de uma das planilhas e clicar como o botão direito e esclhor "Exibir Codigo" ou "teclar" Alt+F11.
Pronto voce está no editor VBE.
"Olhando" A sua esqueda vc vera "uma telinha" , onde consta "VBAPROJECT(nome do seu arquivo).
DE 2 clicks ou na linha onde consta "Esta pasta de Trabalho", deverá abrir + a direita uma tela , onde verá 2 combos (Geral ) e Declaração.
No geral selecione "Workbook" (já deverá aparecer logo abaixo o evento), caso não va em declaração selecione OPEN.
Ai sim podera colocar:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

Lembrando, esse codigo fara todo o excel ficar em fullScreen, e não somente as planilhas que mencionou.

 
Postado : 02/10/2012 11:31 am
(@wilmarleal)
Posts: 186
Estimable Member
 

Reinaldo, gostei de sua resposta cara, é isso ai a comunidade se ajuda, só quero acrescer o seguinte, nosso companheiro ai tem que criar um botão ou tecla de atalho para desocultar a ribbon, não esqueca viu amigo e para isso segue os mesmos passos do nosso amigo Reinaldo porem no final voce troca o True por False

assim:

Application.DisplayFullScreen = False

Para Habilitar novamente as Ribbons

abraço

Não entendi mas Vamos lá:
para "achar" o evento workbook_open; voce pode:
Posicionar a seta do mouse sobre o nome de uma das planilhas e clicar como o botão direito e esclhor "Exibir Codigo" ou "teclar" Alt+F11.
Pronto voce está no editor VBE.
"Olhando" A sua esqueda vc vera "uma telinha" , onde consta "VBAPROJECT(nome do seu arquivo).
DE 2 clicks ou na linha onde consta "Esta pasta de Trabalho", deverá abrir + a direita uma tela , onde verá 2 combos (Geral ) e Declaração.
No geral selecione "Workbook" (já deverá aparecer logo abaixo o evento), caso não va em declaração selecione OPEN.
Ai sim podera colocar:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

Lembrando, esse codigo fara todo o excel ficar em fullScreen, e não somente as planilhas que mencionou.

 
Postado : 02/10/2012 11:36 am
(@albertosilvarj)
Posts: 13
Eminent Member
Topic starter
 

Reinaldo,

Fiz o passo-a-passo e consegui. Muito didática sua explicação.
Mas o lance é que como vc disse, TODO o excel abre em Tela Inteira.
-
Tem como fazer um comando deste apenas para a pasta de trabalho que eu preciso?
-
Obrigado a todos!!!

 
Postado : 02/10/2012 6:36 pm
(@albertosilvarj)
Posts: 13
Eminent Member
Topic starter
 

Senhores,

Alguma novidade? Preciso que abra em Tela Cheia somente a pasta de trabalho e não todo o EXCEL.
Obrigado!!

 
Postado : 08/10/2012 6:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

A função DisplayFullScreen, afeta todo o aplicativo, e não somente uma planilha.
Mas voce pode "brincar" com outras propriedades do excel e ver se assim lhe atende
Ao inves de colocar o codigo no ...OPEN.., experimente no acivate e deactivate

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
   Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   Application.DisplayFullScreen = False
End Sub
 
Postado : 08/10/2012 7:27 am
(@albertosilvarj)
Posts: 13
Eminent Member
Topic starter
 

Reinaldo, EXCELENTE!!!

Só uma coisa. Habilito a Macro e fica tudo em Full Screen, certo.
Quando navego pela planilha (que abriu em tela cheia), se aperto o ESC o Full Screen desativa.
Tem como DESABILITAR o ESC em definitivo para esta pasta de trabalho.
Mas se não tiver como, blz.. Tá resolvido tb. MUITO OBRIGADO A TODOS!!!!!!!!!!!!!!! :P

 
Postado : 09/10/2012 7:54 am
(@jonasnenco)
Posts: 0
New Member
 

olá a todos!

só gostaria de opinar um pouco,

quando faço uma apresentação em excel, eu faço duas macros, uma para tela cheia e outra para tela normal do excel-sei que não precisa de macro para isso- mas fica melhor escolher em dois botões de opções.
uma macro para tela cheia:
Sub TELA_CHEIA()
'IRÁ DEIXAR A TELA DO EXCEL EM MODO DE TELA CHEIA.
Application.DisplayFullScreen = True
ActiveWindow.SmallScroll Down:=-3
End Sub
outra macro para voltar a tela:
Sub TELA_NORMAL()
Application.DisplayFullScreen = False
ActiveWindow.SmallScroll Down:=-3
End Sub

pelo menos eu faço assim. desculpa qualquer coisa
sem mais. :D

 
Postado : 24/02/2015 9:18 pm