Esconder barras de herramientas y más
Una pregunta para vosotros los expertos:
Quisiera saber cuál es la rutina para esconder lo siguiente:
1) Barras de desplazamiento horizontal y vertical
2) Etiquetas de las hojas
3) Filas y columnas
4) Barra de fórmulas
5) Todas las barras de herramientas.
La idea es dejar el fondo del proyecto totalmente negro, sin nada a la vista.
Desde ya gracias.
Quisiera saber cuál es la rutina para esconder lo siguiente:
1) Barras de desplazamiento horizontal y vertical
2) Etiquetas de las hojas
3) Filas y columnas
4) Barra de fórmulas
5) Todas las barras de herramientas.
La idea es dejar el fondo del proyecto totalmente negro, sin nada a la vista.
Desde ya gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
1-2-3-
Sub barras2()
With ActiveWindow
'Barras H y V
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
'ocultar las pestañas
.DisplayWorkbookTabs = False
'encabezado de filas y col
.DisplayHeadings = False
End With
End Sub
4-5:
Sub quitaBarras()
With Application
'barra Estándar (la de los botones Nuevo, Abrir, Guardar, etc)
.CommandBars("Standard").Visible = False
'barra Formato
.CommandBars("Formatting").Visible = False
'a continuación las barras que pueden activarse desde el menú Herramientas, Opciones, Ver
'barra Fórmula
.DisplayFormulaBar = False
'barra de Estado
.DisplayStatusBar = False
End With
End Sub
Saludos
Elsa
* Todas estas instrucciones las encontrarás en mi manual '300Macros' explicadas en español.
(No te pierdas la promoción especial de Julio)
Sub barras2()
With ActiveWindow
'Barras H y V
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
'ocultar las pestañas
.DisplayWorkbookTabs = False
'encabezado de filas y col
.DisplayHeadings = False
End With
End Sub
4-5:
Sub quitaBarras()
With Application
'barra Estándar (la de los botones Nuevo, Abrir, Guardar, etc)
.CommandBars("Standard").Visible = False
'barra Formato
.CommandBars("Formatting").Visible = False
'a continuación las barras que pueden activarse desde el menú Herramientas, Opciones, Ver
'barra Fórmula
.DisplayFormulaBar = False
'barra de Estado
.DisplayStatusBar = False
End With
End Sub
Saludos
Elsa
* Todas estas instrucciones las encontrarás en mi manual '300Macros' explicadas en español.
(No te pierdas la promoción especial de Julio)
