El 9 de Agosto 2006
Esto es un poquito mas largo, pero creo que tambien te servira. Estoy tomando como si tus graficos estuvieran uno debajo de otro, con una diferencia de unas 10 filas, a la altura de la columna C.
Primero crea un userform (userform 1) y ponle dos botones, uno ser SIGUIENTE y el otro SALIR. Agregales estos codigos:
Private Sub siguiente_Click()
Call bajando
End Sub
Private Sub salir_Click()
Call salir
End Sub
Ahora , en un modulo coloca esto:
Public referencia As Integer
Sub bajando()
referencia = referencia + 10
Cells(referencia, 3).Select
End Sub
Sub salir()
Unload UserForm1
Application.CommandBars.ActiveMenuBar.Enabled = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
End With
referencia = 0
End Sub
Sub menu()
Range("b3").Select
Application.DisplayFullScreen = True
Application.CommandBars.ActiveMenuBar.Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayGridlines = False
End With
UserForm1.Show vbModeless
End Sub
Luego para tu presentacion llama a la macro MENU , y todo se vera a pantalla completa, sin grilla, sin encabezado de columna y fila, y con un menu flotante donde al presionar "siguiente" bajara al otro grafico y al presionar "salir" dehara todo como estaba.
Abraham