当前位置:编程学习 > VB >>

在word的VBA代码中,Application.ScreenUpdating=False不能关闭刷屏


在word的VBA代码中想关闭刷屏

Application.ScreenUpdating=False

调试过程中也发现这个值一直都是True,直接运行也发现还是不能关闭刷屏,请各位帮忙,谢谢了 --------------------编程问答-------------------- ScreenUpdating 属性
请参阅 应用于 示例 特性 
如果为 True,则启用屏幕更新。Boolean 类型,可读写。

expression.ScreenUpdating

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

说明
当运行某一过程时,ScreenUpdating 属性控制显示器的主要变化情况。如果关闭屏幕更新,屏幕依然显示工具栏,并且 Word 仍允许此过程用状态栏提示、输入框、对话框或信息框等工具来显示和检索信息。关闭屏幕更新可提高某些过程的执行速度。如果此过程已结束,或由于某些错误而停止,请务必将 ScreenUpdating 属性设为 True。

示例
本示例将关闭屏幕更新,并添加一篇新文档。将 500 行文本添加至文档中。宏每隔 50 行选定一行并刷新屏幕。

Application.ScreenUpdating = False
Documents.Add
For x = 1 To 500
    With ActiveDocument.Content
        .InsertAfter "This is line " & x & "."
        .InsertParagraphAfter
    End With
If x Mod 50 = 0 Then
    ActiveDocument.Paragraphs(x).Range.Select
    Application.ScreenRefresh
End If
Next x
Application.ScreenUpdating = True
--------------------编程问答-------------------- 我也就是这样用的,发现无效啊。

放在过程开始和结束处,开始处设置
Application.ScreenUpdating = False
过程结束前设置
Application.ScreenUpdating = True
--------------------编程问答-------------------- 等待各位答疑啊,谢谢 --------------------编程问答--------------------
引用 2 楼  的回复:
我也就是这样用的,发现无效啊。

放在过程开始和结束处,开始处设置
Application.ScreenUpdating = False
过程结束前设置
Application.ScreenUpdating = True

是可以用的
但好像Debug时没有效果,程序运行时才有效果
补充:VB ,  VBA
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,