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

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" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> 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

Hello Shyam,

thanks a lot.

Thomas


Shyam Pillai schrieb:
> 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" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> 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
>