flash object on mouse over during slideshow (2002 SP3)

Topic

New Reply

I am in slideshow mode. I want a shape (“myshape”) to change its fill and line color as the mouse passes over that object. So I named the shape, created a macro, went to Action settings/Mouse over/Run macro…

this is the macro:

Sub flash_myshape()
‘
ActiveWindow.Selection.SlideRange.Shapes(“myshape”).Select

If ActiveWindow.Selection.ShapeRange.Line.ForeColor.RGB = “0” Then

With ActiveWindow.Selection.ShapeRange
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Fill.Visible = msoTrue
.Fill.Solid
End With
End
End If

If ActiveWindow.Selection.ShapeRange.Line.ForeColor.RGB = “255” Then

With ActiveWindow.Selection.ShapeRange
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Fill.Visible = msoTrue
.Fill.Solid
End With
End If

End Sub

It works fine when I am in editing mode,…but I cant get this to happen during the slideshow. I think the problem is with the selection … but this is beyond my knowledge now (very limited!). Help please. Thanks.

Reply | Quote

Replies

Try this:

Sub flash_myshape()
'
With ActivePresentation.Slides(1).Shapes("myshape")
    If .Line.ForeColor.RGB = "255" Then
    .Line.ForeColor.RGB = RGB(0, 0, 0)
    .Line.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(255, 255, 255)
    .Fill.Visible = msoTrue
    .Fill.Solid
Else
    .Line.ForeColor.RGB = RGB(255, 0, 0)
    .Line.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(255, 255, 0)
    .Fill.Visible = msoTrue
    .Fill.Solid
    End If
End With
End Sub

You might want to tie the same macro to the mouse over and mouse click action settings. Otherwise you have to wave your mouse around to trigger it.

Reply | Quote