Я написал код для заполнения PPT из данных, хранящихся в Excel, и он отлично работал в течение 2 лет, пока недавно не начал выдавать ошибку, когда пытался ввести некоторые данные в вертикальную диаграмму. Ошибка только говорит: «Не удается открыть шаблон. Пожалуйста, проверьте правильность пути к шаблону».
Я не профессионал, но могу найти способ сделать что-то. Я вставил выдержку из своего кода и буду признателен, если кто-то может помочь выявить потенциальную проблему, а также, если есть лучший способ написания кода, поскольку мой способ может быть неэффективным.
'Opening powerpoint template. No issues when running here.
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Open(Range("template_path"))
Set PPPres = PPApp.ActivePresentation
'Add some data to textbox.
Set PPSlide = PPPres.Slides(slide_now) 'Needs edit
PPSlide.Shapes("Title for Health").TextFrame.TextRange.Text = "Overall Organisation" & bck.Range("L4")
'Engagement Chart
With PPSlide.Shapes("Engagement Chart").Chart.ChartData
.Activate
.Workbook.Sheets(1).Range("B2").Value = bck.Range("AD5") 'Historical Year Engagement Score
.Workbook.Sheets(1).Range("B6").Value = bck.Range("AC5") 'Current Year Engagement Score
.Workbook.Close
Calculate 'Making sure charts reflect correctly
End With
'Saving the file
strDefpath = Application.ActiveWorkbook.Path 'Default path name
SaveFileName = "Report - " & Format(Now, "dd-mm-yy h-mm-ss") & ".pptx"
Application.DisplayAlerts = False 'To ensure no pop ups happen while saving
PPPres.SaveAs (strDefpath & "\" & SaveFileName)
PPPres.Close
Application.DisplayAlerts = True
Большое спасибо.