Macros in 2000 not running in 2007

  • Thread starter Thread starter Chris Watts
  • Start date Start date
C

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
 
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
 
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
 
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
 
I know its obvious... But when you installed Office did you install VBA
support?


Austin Myers
AT&W Technologies

Creators of PowerPoint add-ins
 
The obvious can so often be the answer. I *think* that I did - but I will
check!
cheers
Chris
 
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
 
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
 
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
 
Back
Top