【ppt里无限拖动怎么做】可以任意拖动交互式PPT

不使用Flash，您可以在PPT中通过简单的VBA自由拖动图片或按钮，与用户交互。

示例说明：如图1所示，在幻灯片放映状态下，需要使用鼠标将植物细胞的每个部分名称拖动到适当的位置的自由配对问题类型。

分析实例：在Flash中，仅使用startDrag和stopDrag函数就可以轻松拖动元素。但是，PPT没有这两个函数。一般来说，PPT的人机交互是以预设结果为前提，通过自定义动画或触发器进行交互，是手动交互。要想主动互动，必须利用VBA。

使用控制工具箱添加元素

在完成的幻灯片上，选择“视图”“工具栏”“控件工具箱”菜单以调用“控件工具箱”。在「控制工具箱」中，选取「命令按钮」控制项，在幻灯片的空白区域绘制按钮。您可以右键单击此按钮，选择“属性”对话框，将Caption属性更改为按钮要显示的标签内容(例如细胞壁)，以便根据需要更改字体、颜色等。您可以根据需要设置鼠标在按钮上显示的外观，即MousePointer属性。这里，笔者选择了第15(FMMOUSEPOINTERSIZEALL)十字箭头形状。创建按钮后，复制并粘贴5次，并将每个按钮的Caption属性更改为其他按钮标签。最后，选择所有按钮，然后选择“绘图”“对齐”或“分布”“左对齐”菜单，将所有按钮左对齐。

向按钮添加VBA代码

双击第一个按钮以进入VBA编辑器。在行1之前回车，然后输入图片的代码a。然后选择对象及其事件，并在图中输入代码b。复制Commandbutton1的三个事件，以确定commandbutton1出现的位置：command button 2、command button 3、command button 4、commandbutton5和command button 1

启用和显示VBA代码

通过选择“工具”“宏”“安全性”并将宏安全性设置为“低”，可以顺利执行VBA代码。现在展示幻灯片，拖动按钮体验一下！