Pantalla completa

09/11/2005 - 06:12 por pasarin | Informe spam
Hola amigos,

Quisiera darle un toque "profesional" a unas macros haciendo que al abrir la
hoja .xls que las contiene no se vean más que los controles de las macros y
no las barras de herramientas de Excel etc. ¿como se hace esto? ¿y como se
quita?

Gracias
 

Leer las respuestas

#1 Héctor Miguel
09/11/2005 - 07:07 | Informe spam
hola, pasarin !

... un toque "profesional"... que al abrir la hoja... no se vean mas que los controles de las macros y no las barras de herramientas [...]



1) para que la presentacion 'afecte' SOLO cuando el usuario este utilizando tu aplicacion [el libro entero]...
pega en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Activate()
AmpliarVista True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
End Sub
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar: .DisplayScrollBars = Not Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

2) para que la 'afectacion' sea unicamente en 'cierta' hoja de tu libro...
en el modulo de codigo de 'esa determinada' hoja ==Private Sub Worksheet_Activate()
Application.DisplayFullScreen = True
Application.CommandBars.ActiveMenuBar.Enabled = False
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
Application.CommandBars.ActiveMenuBar.Enabled = True
End Sub

3) los procedimientos anteriores ocultan [NO alguna, sino] todas las barras de menus [y comandos]
para hacer 'lo mismo' PERO SOLO con 'algunas' barras de menus y comandos...
-> habria que 'determinar' cuales si, y cuales no [ademas 'pensar' que hacer si hay alguna 'pesonalizada'] :-(
Y... [sobre todo] 'cuidar' de no 'echarle a perder' al usuario 'en turno' su arreglo ->personal<- de las barras <\°|°/>

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares