有关PPT中VBA对象模型的应用

[林雨风]

我要在VC++中实现将指针改变为绘图笔,并将该幻灯片放映的绘图笔颜色设为红色，我查找了VBA对象模型，但是并没有pointerType那些接口，该如何去实现

VBA对象模型
Set currView = ActivePresentation.SlideShowSettings.Run.View

With currView

.PointerColor.RGB = RGB(255, 0, 0)

.PointerType = ppSlideShowPointerPen

End With

[林雨风]

我不知道如何去实现，求大神指导一下

[赵4老师]

PointerType 属性 请参阅 应用于 示例 特性 返回或设置在幻灯片放映中使用的指针类型可读写。PpSlideShowPointerType 类型。 PpSlideShowPointerType 可以是下列 PpSlideShowPointerType 类型常数之一。 ppSlideShowPointerAlwaysHidden ppSlideShowPointerArrow ppSlideShowPointerAutoArrow ppSlideShowPointerNone ppSlideShowPointerPen expression.PointerType expression 必选。该表达式返回“应用于”列表中的对象之一。 示例 本示例执行当前演示文稿的一个幻灯片放映，将指针改变为绘图笔，并将该幻灯片放映的绘图笔颜色设为红色。 Set currView = ActivePresentation.SlideShowSettings.Run.View With currView .PointerColor.RGB = RGB(255, 0, 0) .PointerType = ppSlideShowPointerPen End With