Hi Curt,

You can do this with code such as posted below. You would have to refine it
(split it out into different colors). I'm sure someone else can refine it,
as I don't currently have time. Why not run a macro yourself and change the
pen settings, then look at the code in the VBA editor (Alt + F11)?

With ActivePresentation.SlideShowSettings
       .ShowType = ppShowTypeSpeaker
       .LoopUntilStopped = msoFalse
       .ShowWithNarration = msoTrue
       .ShowWithAnimation = msoTrue
       .RangeType = ppShowAll
       .AdvanceMode = ppSlideShowUseSlideTimings
       .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
       .Run
   End With
   SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
   SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow
   SlideShowWindows(Index:=1).View.Exit
End Sub