ScreenUpdating (propiedad)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

True si la actualización de pantalla está activada. Boolean de lectura y escritura.

Sintaxis

expresión .ScreenUpdating

expresión Variable que representa un objetoApplication object.

Notas

Desactive la actualización de la pantalla para acelerar el código de la macro. No podrá ver qué está haciendo la macro, pero se ejecutará con mayor rapidez.

No olvide volver a establecer la propiedad ScreenUpdating en True cuando la macro haya terminado.

Ejemplo

En este ejemplo se demuestra que al desactivar la actualización de pantalla, el código puede ejecutarse con más rapidez. El ejemplo oculta una columna de cada dos en Sheet1, mientras realiza un seguimiento del tiempo que tarda en hacerlo. La primera vez que el ejemplo oculte las columnas, la actualización de la pantalla estará activada; la segunda estará desactivada. Al ejecutar este ejemplo, puede comparar los respectivos tiempos de ejecución, que se muestran en el cuadro de mensaje.

Dim elapsedTime(2)
Application.ScreenUpdating = True
For i = 1 To 2
    If i = 2 Then Application.ScreenUpdating = False
    startTime = Time
    Worksheets("Sheet1").Activate
    For Each c In ActiveSheet.Columns
        If c.Column Mod 2 = 0 Then
            c.Hidden = True
        End If
    Next c
    stopTime = Time
    elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60
Next i
Application.ScreenUpdating = True
MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _
        " sec." & Chr(13) & _
        "Elapsed time, screen updating off: " & elapsedTime(2) & _
        " sec."

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.