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

求一段演示PPT时能把指针选项变成荧光笔的代码
如题，演示PPT是指针选项变成荧光笔，在线等

[解决办法]
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow