-
Update Chart Data
Howdy,
The following code actually works but only after I run it a second time. I'm sure there is some little thing that I am missing. Can someone take a look?
[VBA]Sub UpdateData()
Dim sld As Slide
Dim shp As Shape
Dim wkb As Object
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
shp.Chart.ChartData.Activate
Set wkb = shp.Chart.ChartData.Workbook
wkb.UpdateLink wkb.LinkSources(1)
wkb.Close True
End If
Next
Next
Set wkb = Nothing
End Sub[/VBA]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules