hi, i am making a game in ppt using a simple script but for some reason is not working as it should.
1st problem: when i go to the show the first code doesnt work unless i stop the show and start again then it works perfectly. the second code works fine,
2nd problem: when i go to the slide with the 3rd code the shape bo50 do not appear until i stop the show. in that slide i have 2 picture, bo50 and bc50 and a textbox. since this is a game, when the textbox is clicked, bc50 dissappear and it's supposed that bo50 appear but it doesn't during the show. when i stop the show the picture is there. i used a code to name the shape but the name is not the problem and the debugger doesnt show any errors. when i erase one of the lines from the 2nd code they work so it's like they can work together. PLEASE HELP ME THIS IS DRIVING ME CRAZY!!!!! WHAT COULD BE WRONG?

1st CODE
Sub Start()

ActivePresentation.Slides(2).Shapes("bc1").Visible = True
ActivePresentation.Slides(2).Shapes("m50").Visible = True
ActivePresentation.Slides(8).Shapes("bo50").Visibl e = False
ActivePresentation.Slides(8).Shapes("bc50").Visibl e = True
ActivePresentation.SlideShowWindow.View.GotoSlide (2)


End Sub

2nd code
Sub BC1()
ActivePresentation.SlideShowWindow.View.GotoSlide (8)
ActivePresentation.Slides(2).Shapes("bc1").Visible = False
ActivePresentation.Slides(2).Shapes("m50").Visible = False
End Sub

3rd code
Sub atbco50()
ActivePresentation.Slides(8).Shapes("bo50").Visibl e = True
ActivePresentation.Slides(8).Shapes("bc50").Visibl e = False

End Sub

Don't have enough info to actually try it but add
'DoEvents' just before each end sub and see if that helps.

Hi,

Like in another of your posts with a bunch of if statements, some of your spellings of "Visible" as "Visibl e" are a problem. The mispelling are probably stopping your code from working.

VBA is very fussy about spelling errors and it isn't very good about telling you where the problems are.