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

我只是修改了代码，使其与office的所有版本兼容（因此独立于PowerPoint 15.0库）。代码运行时，我遇到了一些小问题，我需要为我的工作解决这些问题。下面给出了代码和错误。非常感谢你的帮助。谢谢

新代码

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

错误-

编译错误。未定义变量。

“ppWindowMinimized”的错误

“ppWindowMinimized”使用的旧代码

对于新代码，我在以下语句中也面临同样的错误：

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

---

由于您使用的是后期绑定（），因此需要将

'ppWindowMinimized'

替换为

'2'

。对于正常窗口状态，请使用

'1'

，对于最大化窗口使用

'3'

，谢谢！但我刚刚意识到，不使用ref lib会有更多的问题（例如，一张图表被复制为图表，而不是被复制为图片，尽管我指定了它，但在添加ref时会找到它）。我想知道是否可以在打开excel时自动添加相关的ppt参考库。可以在打开工作簿时更改参考库（例如），但这不是一种非常稳健的处理方法。也许如果你给我发送你用于复制图表的代码，我可以帮助你修复它。发布你用于复制和粘贴图表的代码。否则，我们都只是猜测问题可能是什么。

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