PowerPoint VBA低CPU占用Sleep/等待计时器实现方案问询

嘿，针对你的两个问题，我来详细解答：

1. 你的循环等待确实没进入真正休眠状态 #

你当前使用的嵌套循环（While Timer < Start + waitTime: DoEvents: Wend）并没有让VBA线程进入真正的休眠。DoEvents只是临时让出CPU给系统处理其他任务，但这个循环会持续快速地检查当前时间，大部分CPU时间都消耗在循环的判断和执行上——线程一直在“忙”着核对时间，根本没停下来休息，这就是你的7代i5 CPU占用达到36%的原因。

2. 低CPU占用的等待实现方式：调用Windows Sleep API #

PowerPoint VBA本身没有内置的休眠函数，但我们可以直接调用Windows系统的Sleep API，它能让当前线程进入真正的休眠状态，此时CPU不会为这个线程分配资源，占用率会降到几乎为0。

具体实现步骤： #

首先在你的VBA模块最顶部（所有Sub之外）声明API函数，兼容32位和64位Office：

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

然后替换你原来的等待循环：
把这段高CPU的等待代码：

waitTime = 5
Start = Timer
While Timer < Start + waitTime
    DoEvents
Wend

换成低CPU的休眠逻辑：

Sleep 5000 ' 5000毫秒 = 5秒
DoEvents ' 可选：处理休眠期间积累的系统消息，避免程序假死

修改后的完整代码： #

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub Update_textBox_Inhoud()
    Dim TextFileName As String
    TextFileName = "C:\path\to\textfile.txt" ' 修正了你原代码里的"paht"拼写错误
    
    If Dir$(TextFileName) <> "" Then
        Application.Presentations(1).SlideShowSettings.Run
        Application.WindowState = ppWindowMinimized
        
        While True
            Dim strFileContent As String
            Dim iFile As Integer: iFile = FreeFile
            
            ' 读取文本文件内容
            Open TextFileName For Input As #iFile
            strFileContent = Input(LOF(iFile), iFile)
            Close #iFile
            
            ' 更新幻灯片上的文本框
            Application.Presentations(1).Slides(1).Shapes("textBox_Inhoud").TextFrame.TextRange = strFileContent
            
            ' 低CPU占用的5秒等待
            Sleep 5000
            DoEvents ' 确保系统能处理幻灯片放映的相关事件，避免假死
        Wend
    End If
End Sub

额外小提示： #

• Sleep的参数是毫秒，所以5秒对应5000，按需调整即可。
• 末尾的DoEvents是为了处理休眠期间积累的系统消息（比如幻灯片放映的状态维护），如果你的信息亭不需要额外交互，也可以去掉，但加上会让程序更稳定。
• 我顺便修正了你原代码里的路径拼写错误（paht→path），记得换成你实际的文件路径哦！

内容的提问来源于stack exchange，提问作者Roy