相关疑难解决方法(0)

我正在编写一个循环文件​​夹的脚本,并根据某些条件创建图形,然后将这些图形导出到powerpoint.目前,创建130个图表需要290秒,其中286个由powerpoint使用.我怀疑这是一个主要原因是无法关闭powerpoint的screenupdd.我尝试使用http://skp.mvps.org/ppt00033.htm中的代码来解决这个问题.但是,我没有注意到任何影响.虽然我可以在后台使用alt-tab并保持powerpoint,但当切换到Powerpoint时,所有的更改都会显示出来,你基本上可以看到它如何减慢程序的速度.有谁知道我如何使用这段代码？它应该是一个类模块,我应该做什么或者我做错了什么？下面是我借用的代码片段以及我尝试调用它的示例:

Option Explicit
' UserDefined Error codes
Const ERR_NO_WINDOW_HANDLE As Long = 1000
Const ERR_WINDOW_LOCK_FAIL As Long = 1001
Const ERR_VERSION_NOT_SUPPORTED As Long = 1002

' API declarations for FindWindow() & LockWindowUpdate()
 ' Use FindWindow API to locate the PowerPoint handle.
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

' Use LockWindowUpdate to prevent/enable window refresh
Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

' Use …