2007: VBA Refresh Links

[thomas müller]

Hello,

I have a PPT presentation with several Charts linked with excel. Im
refreshing the Links mauall now.

I Tried this code to refrseh them automatically, but i got an error
message (Next oshp: "Next without for":

Sub linkupdate()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
oshp.LinkFormat.Update
Next oshp
Next osld
End Sub

Can anyone help me or provide a working solution? Im using PPT 2007

Thanks in advance

Thomas

 

[Shyam Pillai]

Sub linkupdate()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
oshp.LinkFormat.Update
End If
Next oshp
Next osld
End Sub


Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm

 

[thomas müller]

Hello Shyam,

thanks a lot.

Thomas

Sub linkupdate()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then
oshp.LinkFormat.Update
End If
Next oshp
Next osld
End Sub


Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm