REM Macros for PowerPoint 2010 that enable the pen 
REM in a specific color during the presentation

REM Last Updated: 20140213

REM For details about the use of these macros see the tutorial
REM at: http://monead.com/video/WacamIntuosTabletandPptAnnotations/

REM This program is free software: you can redistribute it and/or modify
REM it under the terms of the GNU General Public License as published by
REM the Free Software Foundation, either version 3 of the License, or
REM (at your option) any later version.

REM This program is distributed in the hope that it will be useful,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
REM GNU General Public License for more details.

REM See the GNU General Public License at: http://www.gnu.org/licenses/

Sub SelectPenRed()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(255, 0, 0)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenGreen()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(0, 255, 0)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenBlue()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(0, 0, 255)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenYellow()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(255, 255, 0)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenPurple()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(255, 0, 255)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenCyan()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(0, 255, 255)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenBlack()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(0, 0, 0)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub

Sub SelectPenWhite()
    With ActivePresentation.SlideShowSettings.Run.View
        .PointerColor.RGB = RGB(255, 255, 255)
        .PointerType = ppSlideShowPointerPen
    End With
End Sub