求一段演示PPT时能把指针选项变成荧光笔的代码解决思路

求一段演示PPT时能把指针选项变成荧光笔的代码
如题，演示PPT是指针选项变成荧光笔，在线等
[解决办法]
    SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
    SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow