Macros in 2000 not running in 2007

[Chris Watts]

I have a presentation written in PPT2000 that I am trying to run in PPT2007
(compatability mode) under XP. It contains some simple macros - they use
the mouseover and mouseclick actions. These run fine in PPT2000 but not in
PPT2007. Either nothing happens on mouseover or occassionally it responds
once and not again; moseclick is ignored. I have checked that the
presentation is in a trusted location. Any suggestion as to where to look
to correct this would be appreciated.

TIA
Chris

 

[Austin Myers]

Chris,

Have you opened it in the VBA editor in 07 and "stepped" through the code?
That would be my first try at finding it.


Austin Myers
AT&W Technologies

Creators of PowerPoint add-ins

 

[Chris Watts]

Austin,
Not yet but will do.
But I wonder since another macro - with no code in it at all (it is a dummy
to force PPT to do a highlight on mouseover) fails too!!
Thanks
Chris

 

[Chris Watts]

Hi Steve,
It is a modification to Shyam's "Roll Over Demonstration" (to whom I am most
grateful), namely:

Sub DisplayMessage(oShp As Shape)
' Ascertain the position of the mouse by checking the
' index value of shape over which the mouse rests.
With SlideShowWindows(1).View.Slide _
.Shapes(8).TextFrame.TextRange
Select Case oShp.ZOrderPosition
' The pale rectangle on which the buttons rest
' we use the event here to clear the existing message while
' the mouse moves to the next shape

Case 1
.Text = " "
Case 2
.Text = "Magnifier and Pencil facility" & vbCrLf & vbCrLf
With .InsertAfter
.Text = "Alt-Z Activate zoom" & vbCrLf & _
"Click Activate pencil" & vbCrLf & _
"Escape to Exit"
.Font.Italic = msoCTrue
.Font.Color.RGB = RGB(0, 0, 254)
End With
Case 3
.Text = "Turn on stopwatch timer"
Case 4
.Text = "Disable Powerpoint hyperlink warning message"
Case 5
.Text = "Enable Powerpoint hyperlink warning message"
Case 6
.Text = "Open volume control"
Case 7
.Text = "Not used"
Case 8
.Text = "Place the cursor over a choice to learn more." & vbCrLf
& vbCrLf & _
"Click on it to activate the option." & vbCrLf & vbCrLf
.Lines(4).Font.Italic = msoTrue
.Lines(4).Font.Color.RGB = RGB(0, 0, 254)
End Select
DoEvents
End With
End Sub




cheers
Chris

 

[Austin Myers]

I know its obvious... But when you installed Office did you install VBA
support?


Austin Myers
AT&W Technologies

Creators of PowerPoint add-ins

 

[Chris Watts]

The obvious can so often be the answer. I *think* that I did - but I will
check!
cheers
Chris

 

[John Wilson]

Does this work Chris

Case 2
..Text = "Magnifier and Pencil facility" & vbCrLf & vbCrLf
With .InsertAfter("Alt-Z Activate zoom" & vbCrLf & _
"Click Activate pencil" & vbCrLf & _
"Escape to Exit")
..Font.Italic = msoCTrue
..Font.Color.RGB = RGB(0, 0, 254)
End With
--

john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

 

[Chris Watts]

Hi all who made suggestions.
I went back to Shyam's original demo as I thought that it should work just
fine.
It seems that both the original demo and my variant do the same thing.
In PPT2000 they run just fine.
In my installation of PPT2007, they detect the mouseover event just the
once - and carry out the appropriate action. But after that then no
mouseover event is detected/acted on. Which begs the question as to why?

cheers
Chris

 

[Chris Watts]

Shyam - can you offer any suggestions here?
TIA
Chris

 

[Chris Watts]

Thanks Steve.
As you say, cannot figure why that works but it does - and that is all that
matters at the moment.

Many thanks.
Chris