VBA: Update Size and Position of Each Chart for Each Slide in Slide Deck

[nas8424]

Hi - I have a slide deck consistent of 100 Slides, and need all the Charts in the Slide Deck to all be the same size and position (so when we are flipping through it, we can see differences). I have googled the beginning for loop which cycles through each slide, but am having trouble with the position and size part. I can't figure out the name of each chart, but imagine they simply go from Chart1 to Chart100, anyway to create a loop that does this. Thanks




For Each SlideToCheck In ActivePresentation.Slides
For Each ShapeToCheck In SlideToCheck.Shapes
'Update Position and Size of each Chart
Next
Next

[John Wilson]

For Each SlideToCheck In ActivePresentation.Slides For Each shapetocheck In SlideToCheck.Shapes
If shapetocheck.HasChart Then
With shapetocheck
.Left=??
.Top=??
.Width=??
.Height=??
End With
End If
Next
Next

?? is in POINTS 72 to the inch

[nas8424]

I'm getting a RunTime error 429 - ActiveX component can't create object right at the beginning of this for-loop previously mentioned. I have Powerpoint 14.0 Active in the References; I'm using Excel 2010. Is there a compatible workaround? Thanks

[John Wilson]

None of the posted code is creating an ActivX object so I guess there is earlier (faulty) code.

[nas8424]

Would you happen to have the code that does this? Thanks