VBA保存幻灯片

Question

我已经设法打开了我的PowerPoint模板，然后从excel中添加图表，现在我正在尝试使用新名称保存它，但是我的代码不断失败。错误是

运行时错误"91"：对象变量或未设置块变量

主代码

Option Explicit
Public PPT As PowerPoint.Application
Public PPT_pres As PowerPoint.Presentation
Sub master()
Dim fileNameString As String
fileNameString = "C:UsersPersonDesktopTestfolderTest1.pptx"
Call Module4.OpenPowerpoint
Call Module4.PasteCharts
PPT_pres.SaveAs fileNameString, 1 'ERROR HERE
PPT.Quit
End Sub

其中 Module4.OpenPowerPoint 是

Public Sub OpenPowerpoint()
Set PPT = New PowerPoint.Application
PPT.Visible = True
Set PPT_pres = PPT.Presentations.Open(Filename:="C:UsersPersonDesktopTestfolderTest - Template.pptx")
End Sub

过去的图表代码 - 对于不同的图形重复几次

Public Sub CopyPasteForecastTopGraph()
If PPT Is Nothing Then Exit Sub
If PPT_pres Is Nothing Then Exit Sub
Dim rng As Range
Dim mySlide As Object
Dim myShape As Object
Dim cht As Chart
Set mySlide = PPT_pres.Slides(5)
With mySlide
.Select
Set cht = ThisWorkbook.Worksheets("Forecast").ChartObjects("FcChart").Chart
cht.CopyPicture Appearance:=xlScreen, Format:=xlPicture, Size:=xlScreen
.Shapes.Paste.Select
'''''''''''''''''''''''''''''''''
'Paste as Chart and break link. '
'''''''''''''''''''''''''''''''''
'cht.ChartArea.Copy
'.Shapes.Paste.Select

'With .Shapes("HcChart")
'.LinkFormat.BreakLink
'End With
PPT_pres.Windows(1).Selection.ShapeRange.Left = 35
PPT_pres.Windows(1).Selection.ShapeRange.Top = 110
PPT_pres.Windows(1).Selection.ShapeRange.Width = 720
PPT_pres.Windows(1).Selection.ShapeRange.Height = 300
End With
'Clear The Clipboard
Application.CutCopyMode = False
Application.Wait (Now + TimeValue("00:00:01"))
End Sub

Answer 1

由于您不显示PasteCharts的代码，因此很难分辨。因为您对对象使用全局变量编码 PPT.quit 可能会"混乱"，特别是当您不关闭PPT_pres并始终在模块 4 中创建 Powerpoint 的新实例时。

要么完全删除全局变量并重构代码，要么尝试在发生错误的行之后按以下方式更改代码ppt_pres.SaveAs fileNameString, 1

ppt_pres.Close
Set ppt_pres = Nothing
PPT.Quit
Set PPT = Nothing