Power point 2007 macro to move an object

I am trying to work with power point. I have a meter (simple, with a needle
in the middle to move left or right).

Then, I have a selector with 8 prime function. Each function have 3
sub-functions.

Example: Function: Weather. Sub Function: good, bad, don't know.

Then, if it is "good", the needle move clockwise, by about 15 degree. "Bad"
and "don't know", does the reverse.

In Excel, I can get the needle to move when I want to, but in PowerPoint, I
cannot.

This is the macro in excel

Sub Rotateclockwise()

ActiveSheet.Shapes("Freeform 2").Select
Selection.ShapeRange.IncrementRotation 15#
Range("a1").Select
Edn Sub

Can someonehelp me to create amacro for powerpoint?

Thanks

In article , Gaetan wrote:
> I am trying to work with power point. I have a meter (simple, with a needle
> in the middle to move left or right).
>
> Then, I have a selector with 8 prime function. Each function have 3
> sub-functions.
>
> Example: Function: Weather. Sub Function: good, bad, don't know.
>
> Then, if it is "good", the needle move clockwise, by about 15 degree. "Bad"
> and "don't know", does the reverse.
>
> In Excel, I can get the needle to move when I want to, but in PowerPoint, I
> cannot.
>
> This is the macro in excel
>
> Sub Rotateclockwise()
>
> ActiveSheet.Shapes("Freeform 2").Select
> Selection.ShapeRange.IncrementRotation 15#
> Range("a1").Select
> Edn Sub
>
> Can someonehelp me to create amacro for powerpoint?

Sure. Assuming the shape's name is the same and that it's on Slide 1:

Sub Rotateclockwise()
With ActivePresentation.Slides(1).Shapes("Freeform 2")
.IncrementRotation 15#
End With
End Sub



==============================
PPT Frequently Asked Questions
[URL="http://www.pptfaq.com/"]http://www.pptfaq.com/[/URL]

PPTools add-ins for PowerPoint
[URL="http://www.pptools.com/"]http://www.pptools.com/[/URL]