delete specific objects in slide show

[Pete Jenning]

This is my 1st post on here and I'm really stuck. I have a presentation which has 36 shapes on it. While running the presentation I need to be able to click on a shape and have it disappear. A bit of background if it will help - it's for a quiz. Each shape represents a different amount of money. When this amount is won I want to click the shape so it's gone from the list. I'm a bit desperate as the quiz is due to run on 30th November Thanks Pete

[John Wilson]

Pete

Do you want to use vba, you don't need to. See our tutorial on just this here http://www.pptalchemy.co.uk/Triggers3.html
If you do need vba then this would be the code


Sub zapme(oshp As Shape)
oshp.Visible = False
End Sub

This code will zap them for good. To get them back use this code


Sub fixme()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Visible = False Then oshp.Visible = True
Next
Next
End Sub

[Pete Jenning]

I didn't realise there was something so easy.