jess7878
11-22-2007, 10:31 AM
Hello all,
I'm trying to get a text box to change color when that particular text is clicked on in Slide Show mode. I recorded a macro where I selected the text box, then changed the color. Then I added the macro in "Action Settings" on the text box and clicked for the macro to run on mouse click, but it won't work. The macro will run if I go into the macro menu and hit "run" but it won't do it on mouse click in slide show mode. Any solutions?
Here's the VBA script from my recorded macro:
Sub grey()
' Macro recorded 11/22/2007 by JB
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 26").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppShadow
End Sub
I'm trying to get a text box to change color when that particular text is clicked on in Slide Show mode. I recorded a macro where I selected the text box, then changed the color. Then I added the macro in "Action Settings" on the text box and clicked for the macro to run on mouse click, but it won't work. The macro will run if I go into the macro menu and hit "run" but it won't do it on mouse click in slide show mode. Any solutions?
Here's the VBA script from my recorded macro:
Sub grey()
' Macro recorded 11/22/2007 by JB
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 26").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppShadow
End Sub