SOLVED VBA for powerpoint

relic245

Solution:
---------------------------------------

Sub oneEighty()

    Dim sld As Slide

    Dim shp As Shape

    Dim sr As Series

    Dim chrt As Chart

        For Each sld In ActivePresentation.Slides

            For Each shp In sld.Shapes

 

                     shp.ThreeD.RotationX = 180

    Next shp

    Next sld

End Sub
------------------------------------------------------------------------------

Anyone know if I can do this easily? I have no experience of VBA but used to write code. 


What i want is 2 macros that does this (pseudo code coming up)

For each slide
{
     Select the textbox on the slide
     do format shape - shape rotation - rotate 180 degrees
}

I'd then like a second macro to return it to 0 degree rotation. 

I can do it by hand but have 5 presentations each with about 70 slides so it's very time consuming.