'This is some code to move shapes around on the screen. The first slide has a
'single shape. Click on the "Move To 5,5" button, and the rectangle will be moved
'to the top left of the screen (5,5). Click on the "Ask and Move" button, and you
'will be asked where you want to move.

'Slide 2 has a small checker board with a couple of checkers. Click on a checker,
'and it will turn green. Click on any empty square on the board, and the green checker
'will move there.

'This isn't that smart and would need a lot more work to create a decent checkers game.

Dim movableChecker As shape

Sub MoveToFiveFive()
    ActivePresentation.SlideShowWindow.View.Slide.Shapes(1).Top = 5
    ActivePresentation.SlideShowWindow.View.Slide.Shapes(1).Left = 5
End Sub

Sub AskAndMove()
    myTop = InputBox("How far from the top?")
    If myTop < 500 And myTop > 0 Then
        myLeft = InputBox("How far from the left?")
        If myLeft < 500 And myLeft > 0 Then
            ActivePresentation.SlideShowWindow.View.Slide.Shapes(1).Top = myTop
            ActivePresentation.SlideShowWindow.View.Slide.Shapes(1).Left = myLeft
        Else
            MsgBox ("Don't move off the screen; you're too low or too high")
        End If
    Else
        MsgBox ("Don't move off the screen; your too far to the left or right")
    End If
End Sub

Sub MoveHim(theChecker As shape)
    theChecker.Fill.ForeColor.RGB = vbGreen
    Set movableChecker = theChecker
End Sub

Sub MoveTo(theSquare As shape)
    movableChecker.Fill.ForeColor.RGB = vbBlack
    movableChecker.Top = theSquare.Top + 3
    movableChecker.Left = theSquare.Left + 3
End Sub