Hi Steve,

I hope you don't mind me raising the topic again but I was hoping to find
out if my query relating to mouseovers was first of all 'doable' and secondly
if I could borrow some of your time in achieving a solution.

You will remember resolving my first query in getting a mouseover event to
swap text regardles of being on a master or presentation slide.

The followup to this is setting up a highlight on the button that stays
active while the mouse hovers over the button rather than quickly switching
off in the default PowerPoint fashion.

I know you provided a solution for this but I was hoping this VBA script
could be combined with the swap text VBA solution as PowerPoint only allows
for one mouseover event at a time.

The original VBA script was:

Sub DisplayMessage(oShp As Shape)
' The shape's. Parent will be either the slide or master ' it's on; this way
you don't have to worry which
With oShp.Parent.Shapes("Slide Navigator").TextFrame.TextRange
.Text = oShp.Name DoEvents
End With
End Sub

And the most recent script is:

Sub HighlightMe(oSh As Shape)
oSh.Fill.ForeColor.RGB = RGB(255, 255, 0)
' make it yellow ' and give it a name so we can grab it later
oSh.Name = "CatchMeIfYouCan"
End Sub

Sub RemoveHighlight(oSh As Shape)
Dim oSl As Slide
Set oSl = oSh.Parent
' grab the highlighted shape
On Error Resume Next
With oSl.Shapes("CatchMeIfYouCan")
.Fill.ForeColor.RGB = RGB(0, 0, 255)
' Rename it something random
Randomize
.Name = CStr(Rnd())
End With
End Sub

I've had a crack at combining the two into one consolidated VBA script but
without success.

I would really appreciate your assistance if you have the time.

Thanks

PFX