ScreenRefresh 方法

使用视频内存缓冲区的当前信息更新显示器的显示。在用 ScreenUpdating 属性中止屏幕更新之后，就可使用本方法。

expression   必需。该表达式返回一个 Application 对象。

说明

ScreenRefresh 只会因某一指令而打开屏幕更新，然后立即关闭。再次使用 ScreenUpdating 属性打开屏幕更新之前，后续指令不能进行屏幕更新。

示例

本示例关闭屏幕更新，打开文档 Test.doc，插入文本，刷新屏幕，然后关闭该文档（保存所作的更改）。

Dim rngTemp As Range

ScreenUpdating = False
Documents.Open FileName:="C:\DOCS\TEST.DOC"

Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)

rngTemp.InsertBefore "new"
Application.ScreenRefresh
ActiveDocument.Close SaveChanges:=wdSaveChanges
ScreenUpdating = True