View Single Post
 
Old 07-27-2010, 08:31 PM
piper7971 piper7971 is offline Windows Vista Office 2007
Advanced Beginner
 
Join Date: Jul 2010
Posts: 38
piper7971 is on a distinguished road
Default simple code doesn't work help

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
Reply With Quote