I'm creating a spreadsheet to change charts in a Powerpoint Presentation from the following youtube video:
https://www.youtube.com/watch?v=Z8WUSIg ... eOfficeLab
This is the module:
Code: Select all
Sub Refresh(ParamArray var() As Variant)
Dim pApp As Object
Dim pPreso As Object
Dim pSlide As Object
Dim sPreso As String
'Define your PowerPoint Dashboard File Path
sPreso = "C:\MIC\Powerpointdash\Dash.pptx"
'Open and reference PowerPoint Dashboard File
On Error Resume Next
Set pApp = GetObject(, "PowerPoint.Application")
If Err.Number <> 0 Then
Set pApp = CreateObject("PowerPoint.Application")
pApp.Visible = True
End If
On Error Resume Next
Set sPreso = (pApp.Presentations(sPreso))
If Err.Number <> 0 Then
Set sPreso = (pApp.Presentations.Open(Filename:=sPreso)) ' ERROR OCCURS ON THIS LINE
'Update every chart in ParamArray var
Dim varSize As Integer
Dim i As Integer
varSize = UBound(var) - LBound(var) + 1
For i = 0 To (varSize - 1)
pPreso.Slides(1).Shapes(var(i)).LinkFormat
Next i
End Sub
Set sPreso = (pApp.Presentations(sPreso))
Any idfeas why I am getting this?
Cheers