Ms高频ppt

在Microsoft Office PowerPoint 2013中，可以使用VBA(Visual Basic for Applications)编写代码，实现单击图形按钮显示相应内容和切换内容的功能。以下是演示如何实现该函数的示例代码:

首先，打开PowerPoint 2013，按ALT+F11打开VBA编辑器。在左侧的项目浏览器窗口中，双击“ThisPresentation”打开演示文稿的代码窗口。

在“代码”窗口中，输入以下代码:

选项显式

私有子形状_Click()

将单击的形状标注为形状

Set clickedShape = ActiveWindow。Selection.ShapeRange(1)

根据所点击的图形按钮的名称或其他属性，执行相应的操作。

选择案例单击形状。名字

Case“button 1”的第一个按钮

添加代码以在此显示相应的内容。

MsgBox "点击按钮1 "

案例“按钮2”第二个按钮

添加代码以在此显示相应的内容。

MsgBox“单击了按钮2”

添加更多按钮处理逻辑

结束选择

末端接头

在代码中，我们使用Shape_Click事件处理程序来捕获单击图形按钮的事件。在事件处理程序中，我们首先获取被点击的图形按钮，然后使用Select Case语句根据按钮的名称或其他属性执行相应的操作。您可以根据实际情况修改Select Case语句的条件和操作来实现您需要的功能。

请注意，您需要将代码中的“Button1”和“Button2”替换为您实际使用的图形按钮的名称或其他属性。

编写完代码后，保存并关闭VBA编辑器。然后，在PowerPoint中插入图形按钮，并为每个按钮设置相应的名称或其他属性，以便在代码中识别它。

当您单击演示文稿中的图形按钮时，将执行相应的代码，并根据按钮的名称或其他属性显示相应的内容。

希望这个例子能帮你实现需求。如果你有任何其他问题，请随时问。