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

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 pasarin
09/11/2005 - 23:17 | Informe spam
Gracias Héctor, es lo que quería pero tengo que hacer más pruebas para que
no se queden así otras hojas excel que abra y tal por cierto ¿como se vuelve
a poner que se vea la parte de abajo , los nombres de las hojas, barras de
desplazamiento , etc? Gracias saludos.

"Héctor Miguel" escribió en el mensaje
news:
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.

Respuesta Responder a este mensaje
#3 Héctor Miguel
09/11/2005 - 23:48 | Informe spam
hola, pasarin !

... por cierto como se vuelve a poner que se vea la parte de abajo , los nombres de las hojas, barras de desplazamiento, etc?



si quedaron no 'visibles' [por efecto de alguna interrupcion en el proceso 'completo']...
las puedes mostrar con una instruccion que diga: Application.DisplayScrollBars = True
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida