Crossword

sub getstarted() initialize activepresentation.slideshowwindow.view.next end sub sub initialize() activepresentation.slides("board").shapes("1.1").visible = false activepresentation.slides("board").shapes("1.2").visible = false activepresentation.slides("board").shapes("1.3").visible = false activepresentation.slides("board").shapes("1.4").visible = false activepresentation.slides("board").shapes("1.5").visible = false activepresentation.slides("board").shapes("2.1").visible = false activepresentation.slides("board").shapes("2.3").visible = false end sub sub across1() dim answer as string answer = inputbox("a common greeting") answer = trim(answer) answer = lcase(answer) if answer = "hello" then activepresentation.slides("board").shapes("1.1").visible = true activepresentation.slides("board").shapes("1.2").visible = true activepresentation.slides("board").shapes("1.3").visible = true activepresentation.slides("board").shapes("1.4").visible = true activepresentation.slides("board").shapes("1.5").visible = true msgbox ("good job") else msgbox ("try again") end if end sub sub down2() dim answer as string answer = inputbox("mel's first name") answer = trim(answer) answer = lcase(answer) if answer = "mel" then activepresentation.slides("board").shapes("2.1").visible = true activepresentation.slides("board").shapes("1.2").visible = true activepresentation.slides("board").shapes("2.3").visible = true msgbox ("good job") else msgbox ("try again") end if end sub 'all these procedures run in edit or normal view, not slideshow view 'this procedure returns the object name of the selected object 'in a msgbox. it returns an error message if you have not selected 'an object or you have selected more than one object. sub getobjectname() if activewindow.selection.type = ppselectionshapes _ or activewindow.selection.type = ppselectiontext then if activewindow.selection.shaperange.count = 1 then msgbox (activewindow.selection.shaperange.name) else msgbox ("you have selected more than one shape.") end if

else msgbox ("no shapes are selected.") end if end sub 'this procedure sets the name of an object to whatever you type. 'it returns an error message if you have not selected 'an object or you have selected more than one object. sub setobjectname() dim objectname as string if activewindow.selection.type = ppselectionshapes _ or activewindow.selection.type = ppselectiontext then if activewindow.selection.shaperange.count = 1 then objectname = inputbox(prompt:="type a name for the object") objectname = trim(objectname) if objectname = "" then msgbox ("you did not type anything. " & _ "the name will remain " & _ activewindow.selection.shaperange.name) else activewindow.selection.shaperange.name = objectname end if else msgbox _ ("you can not name more than one shape at a time. " _ & "select only one shape and try again.") end if else msgbox ("no shapes are selected.") end if end sub