PPT2000: How to Create a Macro to Change an Image When You Move the Mouse Pointer Over It (302936)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site: To create an image roll-over macro, follow these steps:

1. Start PowerPoint 2000.
2. On the Tools menu, point to Macro, and then click Macros.
3. In the Macro Name box, type ChangeToSmiley, and then click Create.
4. Type or paste the following code:

   Sub ChangeToSmiley()
     If SlideShowWindows(1).Presentation.Slides(1).Shapes(2).AutoShapeType =_   msoShapeRectangle Then
     SlideShowWindows(1).Presentation.Slides(1).Shapes(2).AutoShapeType =_      msoShapeSmileyFace
     End If
   End Sub
   
   Sub ChangeToRectangle()
       If
   SlideShowWindows(1).Presentation.Slides(1).Shapes(2).AutoShapeType =_      msoShapeSmileyFace Then
       SlideShowWindows(1).Presentation.Slides(1).Shapes(2).AutoShapeType =_      msoShapeRectangle
       End If
   End Sub
   					

NOTE: Your intended shape numbers may be different from those in the code.