update powerpoint links with vba

[almagg]

when i open up the powerpoint template from Excel vba it does not update the links.
and when i try to do it manually it hangs because the Excel file is open.
i can't 'unhsare' the workbook because that is where the code is.

i tried:

For Each objSld In ActivePresentation.Slides
For Each objShp In osld.Shapes
If objShp.Type = msoLinkedOLEObject Then
objShp.LinkFormat.Update
Next objShp
Next objSld

but it does not work.


oh i was also trying to 'break links' after the update and on searching found a lot of complicated solutions. i decided to try replacing the above with:
.
.
objShp.LinkFormat.BreakLink
.
.

and it worked

but i need to update the template, which i will then save as a regular 'pptx' file.

thanks for the help.

 

[almagg]

fixed.
there was a link an external link in Excel that no longer existed aqnd that was causing the 'hangup'. once i removed the link the below code worked.