I am trying to open a PowerPoint Doc from within VBA(behind excel). From there I want to save the PowerPoint to a HTML doc. All is working until I hit this code
Set wdApp = CreateObject("PowerPoint.Application"
With wdApp
.Visible = True
.presentations.Open MyFile_PPT
retval = Dir$(MyFile_PPT_HTML)
If retval = "personnel_ppt.html" Then
Kill MyFile_PPT_HTML
End If
.presentations.SaveAs MyFile_PPT_HTML
End With
The last line before the End With is what is giving me an unsupported method. Any ideas?? Ideally I would like to run this behind the scenes (this process is being fired off before the Excel Doc is closed(before close event))
Tanks
Set wdApp = CreateObject("PowerPoint.Application"
With wdApp
.Visible = True
.presentations.Open MyFile_PPT
retval = Dir$(MyFile_PPT_HTML)
If retval = "personnel_ppt.html" Then
Kill MyFile_PPT_HTML
End If
.presentations.SaveAs MyFile_PPT_HTML
End With
The last line before the End With is what is giving me an unsupported method. Any ideas?? Ideally I would like to run this behind the scenes (this process is being fired off before the Excel Doc is closed(before close event))
Tanks