使用Excel-VBA控制PowerPoint（最小化等）

我只是改变我的代码，使其兼容所有版本的办公室（因此独立的PowerPoint 15.0库）。 代码运行时，我遇到了一些小问题，我需要解决我的工作。 代码和错误在下面给出。 真的很感激帮助。 谢谢！

新的代码

Dim pptApp As Object Set pptApp = CreateObject("Powerpoint.Application") pptApp.Visible = True pptApp.WindowState = ppWindowMinimized 

错误 – Compile Error. Variable not defined. Compile Error. Variable not defined. 错误 – “ppWindowMinimized”

与“ppWindowMinimized”工作的旧代码

 Dim pptApp As PowerPoint.Application Set pptApp = New PowerPoint.Application pptApp.Visible = True pptApp.WindowState = ppWindowMinimized 

对于新代码，我也面临着同样的错误：

 pptApp.ActiveWindow.viewtype = ppViewNormal myPPT.SaveAs target_dir, ppSaveAsDefault 

Answer 1

由于您使用的是晚期绑定（ http://msofficefun.wordpress.com/2011/02/26/early-binding-vs-late-binding-in-office-vba/ ），因此您需要将'ppWindowMinimized'replace为'2' 。 对于正常的窗口状态，使用'1'和最大化窗口使用'3' 。