VBA сохранить Powerpoint - PullRequest
Новая
       12

VBA сохранить Powerpoint

0 голосов
/ 01 мая 2018

Мне удалось открыть шаблон PowerPoint, затем добавить диаграммы в Excel, теперь я пытаюсь сохранить его под новым именем, однако мой код продолжает падать. Ошибка

Ошибка времени выполнения '91': переменная объекта или переменная блока не установлена ​​

Мастер-код 

Option Explicit

Public PPT As PowerPoint.Application
Public PPT_pres As PowerPoint.Presentation

Sub master()

Dim fileNameString As String

fileNameString = "C:\Users\Person\Desktop\Testfolder\Test1.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:\Users\Person\Desktop\Testfolder\Test - 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

1 Ответ

0 голосов
/ 01 мая 2018

Поскольку вы не показываете код PasteCharts, это трудно сказать. Поскольку вы используете глобальные переменные для своих объектов, кодирующих PPT.quit, возможно, «грязный», тем более что вы не закрываете PPT_pres и всегда создаете новый экземпляр Powerpoint в Module4.

Либо вы полностью избавляетесь от глобальной переменной и перефакторите свой код, либо вы можете попытаться изменить код следующим образом после строки, в которой произошла ошибка ppt_pres.SaveAs fileNameString, 1

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