Refresco de pantalla en loop -al activar libro-

29/06/2007 - 21:26 por Arcano | Informe spam
Grupo, tengo un archivo con varios gráficos y figuras (bien colorido).
Cuando estoy en otro libro y activo este, comienza a hacer algo asi
como refrescar (screenupdate) la pantalla, cayendo en un loop, o sea,
aparecen y desaparecen los gráficos y las figuras rápidamente..no
funciona el ESC.. si no que haciendo un click derecho..
no me sucede siempre, pero si varias veces...
¿como puedo solucionarlo?
Además tengo este código que me dio Hector, para ver en pantalla
completa, y cuando lo desactivo pasa esto (de desaparer y aparecer,
pero dura no mas de un segundo).

ThisWorkbook==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

Private Sub Workbook_Activate()
AmpliarVista True

End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
End Sub

Gracias
 

Leer las respuestas

#1 Héctor Miguel
30/06/2007 - 03:19 | Informe spam
hola, !

... tengo un archivo con varios graficos y figuras (bien colorido).
Cuando estoy en otro libro y activo este, comienza a hacer algo asi como refrescar (screenupdate) la pantalla
cayendo en un loop, o sea, y desaparecen los graficos y las figuras rapidamente.
no funciona el ESC. si no que haciendo un click derecho.
no me sucede siempre, pero si varias veces. como puedo solucionarlo?
Ademas tengo este codigo... para ver en pantalla completa
y cuando lo desactivo pasa esto (de desaparer y aparecer, pero dura no mas de un segundo).



si puedes confirmar que no existe mas codigo ni en 'este' ni en los otros libros entre los que lo des/activas constantemente...
no se ve alguna -posible- causa para los efectos que mencionas -?-
[aunque existen algunas acciones que 'disparan' algun re/calculo en excel]

-> prueba poniendo un -> .ScreenUpdating = False
[debajo del With Application]

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.

__ el codigo expuesto __
ThisWorkbook==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

Private Sub Workbook_Activate()
AmpliarVista True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
End Sub

Preguntas similares