PointerColor Property Example

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