schneidm
01-17-2010, 08:46 AM
I would like the following code to open my powerpoint file and update the multiple (Excel chart) links in the file. It opens, but the UpdateLinks command does not work. Help?
Private Sub Command165_Click()
Dim ppt As Object
Set ppt = CreateObject("PowerPoint.Application")
With ppt
.Visible = True
.Presentations.Open "MyFilePath.ppt"
.ActivePresentation.UpdateLinks
End With
Set ppt = Nothing
End Sub
Private Sub Command165_Click()
Dim ppt As Object
Set ppt = CreateObject("PowerPoint.Application")
With ppt
.Visible = True
.Presentations.Open "MyFilePath.ppt"
.ActivePresentation.UpdateLinks
End With
Set ppt = Nothing
End Sub