This example sets the default pen color for the active presentation to blue, starts a slide show, changes the pointer to a pen, and then sets the pen color to red for this slide show only.
With ActivePresentation.SlideShowSettings
.PointerColor.RGB = RGB(0, 0, 255) 'blue
With .Run.View
.PointerColor.RGB = RGB(255, 0, 0) 'red
.PointerType = ppSlideShowPointerPen
End With
End With