How to erase drawings with code?

[DORI]

Dear all,
I make some drawings during the show and I want to delete them by clicking
on a button on the screen rather than going to shortcut menu. I got this code
from Microsoft website:

Private Sub CommandButton1_Click()
SlideShowWindows(1).View.EraseDrawing
End Sub

but it does not do anything when I click on the button. I have PPT 2003. Any
idea?
Thanks in advance for your time.
DORI

 

[John Wilson]

As far as I can tell that code seems to be broken in 2003. It works for me in
2000

Have you tried pressing "E"?
--
-------------------------------------------
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[DORI]

I figured it out. I added another line of code to change the pointer to
eraser and now it works:
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.PointerType = ppSlideShowPointerEraser
SlideShowWindows(1).View.EraseDrawing
End Sub
Regards,
DORI