小学科学教学论坛

   PPT课件是我们教学中的好朋友，利用图像控件可以让我们的PPT在播放中拖动图像，增强人机交互，增加趣味。

打开新的PPT文档，点击“开发工具”

点击开发工具中的“图像”控件

用鼠标拖动出一个区域

选中刚才的图像控件，点击属性，出现属性对话框

分别点击“BackColor”、“BorderColor”，右侧下拉菜单中选择窗口背景

分别点击PictureAlignment与PictureSizeMode，在右侧下拉菜单中分别选择0与3，然后调整图像至合适大小

在开发工具——控件中点击查看代码，进入代码编辑对话框

对代码对话框中删除所有原有代码，再把下面的代码复制进去即可。

Dim X1, Y1 As Integer

Dim Down As Boolean

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Not Down Then

  X1 = X

  Y1 = Y

  Down = True

  End If

End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Down Then

   Image1.Left = Image1.Left + X - X1

   Image1.Top = Image1.Top + Y - Y1

   X1 = X

   Y1 = Y

   End If

End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Down = False

   SlideShowWindows(1).View.First

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

若有多个图像，重复上述步骤，在代码中修改把X1, Y1，Image1修成X2，Y2，Image2……

点击宏安全性，选择启用所有宏确定

全部完成后，点击另存为，在弹出的对话框中保存类型选择“启用宏的PPT”，再点击保存。

用了VBA啊

感觉看着好高级呀，但是又好难呀~~

厉害但有难度

看到那个代码，就知道这个ppt不简单

ppt还有很多有用的插件，拓展性很好

技术的应用更方便也有助于理解。

厉害，把PPT当白板使用了。我现在基本上都是做好了PPT导入白板实现一些可移动等功能。

感觉还是挺难的

感谢分享，这个技术需要自己慢慢钻研，才能得心应手

对代码小白来说，这有一定的难度啊~

代码小白看着就感觉好高级啊

用了VBA啊 朱斌 发表于 2024/12/15 9:42:11

是的，👍

厉害，把PPT当白板使用了。我现在基本上都是做好了PPT导入白板实现一些可移动等功能。 曹文佳 发表于 2024/12/15 13:57:33

白板很方便，西沃里也可以移动

直接用就行

这个很实用

向你学习

这难度有点高哦

回复 29楼求学问路的帖子

尝试一下，其实也还好