Microsoft KB Archive/302936

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

Article ID: 302936

Article Last Modified on 11/23/2006

-

APPLIES TO


 * Microsoft PowerPoint 2000 Standard Edition

-



This article was previously published under Q302936



SUMMARY
This article explains how to create a macro to trigger a shift from one image to another when you move your mouse pointer over the image in Microsoft PowerPoint 2000.



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:

https://partner.microsoft.com/global/30000104

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

To create an image roll-over macro, follow these steps:  Start PowerPoint 2000. On the Tools menu, point to Macro, and then click Macros. In the Macro Name box, type ChangeToSmiley, and then click Create.  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.

Additional query words: OFF2000

Keywords: kbhowto kbinfo KB302936

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.