如何使用 VBA 打开 Powerpoint [英] How to open Powerpoint using VBA

问题描述

我正在尝试通过 Excel VBA 打开 PowerPoint 文件.

I am trying to open a PowerPoint file through Excel VBA.

我明白了

运行时错误-2147467259 (80004005)
对象演示失败"的方法打开"

run-time error -2147467259 (80004005)
method 'open' of object 'Presentation Failed'

这是代码

Sub createPPT(data As Workbook, ByVal pptpath As String)

Dim Sh As Shape
Dim PP As Object
Dim PPpres As Object
'Create a PP application and make it visible
Set PP = New PowerPoint.Application
PP.Visible = msoCTrue
Set PPpres = PP.Presentations.Open(pptpath)
Set Sh = data.Worksheets("Overall_Role").Shapes("Chart 3")
Sh.Copy
PPpres.Slides(6).Shapes.Paste
Set Sh = Nothing
Set PP = Nothing
Set PPpres = Nothing
End Sub

显示错误

Set PPpres = PP.Presentations.Open(pptpath)

推荐答案

试试这个

Set PP = CreateObject("PowerPoint.Application")
Set PPpres = PP.Presentations.Open(pptpath)
PP.Visible = msoCTrue

或者确保您设置了引用 Microsoft PowerPoint 对象库

Or make sure you set references Microsoft PowerPoint Object Library

第一步

步骤 2

更多关于对象

我强烈建议在 VBA 代码的开头使用 Option Explicit

I strongly recommend to use Option Explicit at the start of your VBA code

这篇关于如何使用 VBA 打开 Powerpoint的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！