Hints then
Always copy position etc from the first shape (pentagon 5?)
Set shp = osld.Shapes("pentagon 5" )
After each loop of C you need to reset X to zero I think
Next X=0
Next j
Hints then
Always copy position etc from the first shape (pentagon 5?)
Set shp = osld.Shapes("pentagon 5" )
After each loop of C you need to reset X to zero I think
Next X=0
Next j
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html