Change Shape Colour Macro

[PoohsMate]

Can anyone help me please.

I ahve the following Macro which I am trying to use to change a shap
fill colour to Green using the ActionSettings option.

Any help would be very much appreciated.

Bernard
Macro Code:Sub ChangeToGreen()
'
' Macro recorded 07/11/05 by Bernard
'

ActiveWindow.Selection.SlideRange.Shapes("BEHex1").Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.SchemeColor = ppFill
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(355, 0, 0)
End With
ActivePresentation.Save
End Su

 

[Shyam Pillai]

Assign the action setting to run this macro. When you click on the shape
during slide show it will change to green.
'-------------------------------------------------------------------------------
Sub ChangeToGreen(oShp As Shape)
With oShp.Fill
.ForeColor.SchemeColor = ppFill
.Visible = msoTrue
.Solid
.ForeColor.RGB = RGB(0, 255, 0)
End With
'refresh the slide
SlideShowWindows(1).View.GotoSlide oShp.Parent.SlideIndex
End Sub
'-------------------------------------------------------------------------------