在 PowerPoint 的放映过程中，启动屏幕画笔可以通过编程实现

后端工程架构大师傅

于 2023-09-30 16:29:49 发布

阅读量224

点赞数

CC 4.0 BY-SA版权

文章标签： powerpoint 编程

本文链接：https://blog.csdn.net/CyberGenius/article/details/133436156

编程专栏收录该内容

332 篇文章 ¥29.90 ¥99.00

订阅专栏

本文介绍了如何通过编程方式，在PowerPoint幻灯片放映期间启用屏幕画笔功能。利用VBA（Visual Basic for Applications），在放映开始时启动画笔，结束时关闭画笔，为演示文稿添加互动体验。代码示例提供了详细的操作步骤，适用于有编程基础的用户。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在 PowerPoint 的放映过程中，启动屏幕画笔可以通过编程实现。下面我将为你提供一种实现方法，使用 VBA（Visual Basic for Applications）编写代码来控制 PowerPoint 幻灯片放映时的画笔功能。

首先，打开 PowerPoint，并按下 ALT + F11 组合键，打开 Visual Basic 编辑器。在左侧的项目窗口中，找到并展开你的 PowerPoint 文件，然后双击 “ThisPresentation”，在右侧的代码窗口中输入以下代码：

Option Explicit

Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
    ' 在放映开始时启动屏幕画笔
    Wn.View.PointerType = ppSlideShowPointerPen
End Sub

Private Sub App_SlideShowEnd(ByVal Wn As SlideShowWindow)
    ' 在放映结束时关闭屏幕画笔
    Wn.View.PointerType = ppSlideShowPointerArrow
End Sub

以上代码中，App_SlideShowBegin 事件在放映开始时触发，我们将在这个事件中将屏幕画笔的类型设置为 ppSlideShowPointerPen，以启动画笔。App_SlideShowEnd 事件在放映结束时触发，我们将在这个事件中将屏幕画笔的类型设置为 ppSlideShowPoi

了解本专栏