用VBA如何实现在PPT的幻灯片上制作功能键

PPT是教学中常用的课件形式。现在我想用VBA在PPT中制作一些特定键的按钮,能够在PPT播放状态下点击一次就相当于在键盘上点击对应的键。如在PPT播放状态下,键盘的"CTRL+P"这两个键组合使用可进入标记状态(即鼠标指针变成记号笔),现在我该怎么做才能在PPT的幻灯片中制作一个按钮并在播放这张幻灯片时点击一下就能实现与点击键盘两组织键一样的效果。
求高人指点,并给出详细方案。谢谢了。

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide 1
SendKeys "^{p}"
End Sub
第一句你应该能看懂,按照你的情况改一下就可以了追问

正如您所说的,是有问题。对应幻灯片上不能有动画,一有动画就会出现问题。
每次播放完动画点击按钮时,就会出现返回动画播放前的状态。

追答

额 如果不用非要模拟组合键的话很好实现
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
这一句就可以了
如果非要组合键的话可能比较麻烦了

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网