Dim pptApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
'演示文稿。
Dim PPSlide As PowerPoint.Slide
'幻灯片1。==Slide对象代表幻灯片。
Shell "Regsvr32.exe /u /s " & VBA.Chr(34) & "C:\Program Files\Common Files\System\ado\msado15.dll" & VBA.Chr(34), vbHide'注册：解决实时错误429 activeX...
