Pantalla Completa
Publicado por sargvid (83 intervenciones) el 06/09/2006 17:16:12
Buenas tardes, tengo un codigo que me sirve para maximizar la pantalla:
en Thisworkbook:
Private Sub Workbook_Open()
Sheets("Principal").Activate
Range("A1").Select
Application.DisplayFullScreen = True
Application.OnTime Now, "Set_Toolbar"
End Sub
que funciona realmente bien, pero cuando va a ejecutar el codigo "Set_toolbar" que me sirve para ocultar la barra de herramientas de Pantalla Completa, me da el siguiente error "Se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto".
En Modulo1:
Sub Set_Toolbar()
"Toolbars("Full Screen").Visible = False"
End Sub
Lo que tengo entre comillas es donde me da el error. Ya le he dado unas cuantas vueltas y no consigo arreglarlo. Soy un poco novato en VB pero voy poquito a poco.
Muchas gracias por la Ayuda
Y Saludos para Abraham y Jose Luis ;-) por la ayuda prestada hasta ahora.
en Thisworkbook:
Private Sub Workbook_Open()
Sheets("Principal").Activate
Range("A1").Select
Application.DisplayFullScreen = True
Application.OnTime Now, "Set_Toolbar"
End Sub
que funciona realmente bien, pero cuando va a ejecutar el codigo "Set_toolbar" que me sirve para ocultar la barra de herramientas de Pantalla Completa, me da el siguiente error "Se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto".
En Modulo1:
Sub Set_Toolbar()
"Toolbars("Full Screen").Visible = False"
End Sub
Lo que tengo entre comillas es donde me da el error. Ya le he dado unas cuantas vueltas y no consigo arreglarlo. Soy un poco novato en VB pero voy poquito a poco.
Muchas gracias por la Ayuda
Y Saludos para Abraham y Jose Luis ;-) por la ayuda prestada hasta ahora.
Valora esta pregunta
0