View Single Post
 
Old 01-21-2017, 05:48 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,913
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

Glad it's working. The problem with your code is that the picture will not be a msoEmbeddedOLEObject

It may be an MsoLinkedPicture or maybe msoPlaceholder with ContainedType = msoLinkedPicture

Code:
Sub pixUpdater()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedPicture Then oshp.LinkFormat.Update
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.ContainedType = msoLinkedPicture Then oshp.LinkFormat.Update
End If
Next oshp
Next osld
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote