PPT放映状态下随意拖拽图片（源代码公开）

user_comiv

由于想做一个互动效果强的PPT，想在PPT播放时也能拖动文字和图片，就到处上网搜数据。
搜下来的结果是：
1.http://www.rapidbbs.cn/forum.php?mod=viewthread&tid=23726&page=1 但感觉不好。
2. 好象很好，但版主没有公布源代码。
也有人评论以上两种都不好，但我认为第2种达到了我的需求。
用中文搜不到，就用英文搜搜吧。 Thanks to google! Thanks to my English Level! :) I found the code!（在PPT学习论坛得到很多，这次回报一下！）
为了尊重原版权，特把相关链接放在此处（如果没有耐心的可直接去下附件）。
1.原文出处及建议：http://joedale.typepad.com/integrating_ict_into_the_/2006/10/drag_and_drop_i.html2.源代码：http://www.deadgekko.co.uk/images/mDrag.bas特别说明：本代码在2003与2010下均可运行，效果有一点差别，但不大。2007未做测试，不敢断言，但想必也可以。
woxinbuji的示例文件（含源代码）.rar (42.49 KB, 下载次数: 183)

2016-4-12 13:25 上传

点击文件名下载附件
源代码.rar (901 Bytes, 下载次数: 295)

2016-4-12 13:25 上传

点击文件名下载附件
有点基础的人下载这两个应该就会操作了（注意宏的安全性要设低，并重新打开生效）。
如果还不会，就看看英文版的源文件与操作说明吧：（发点牢骚，限制太多，还要分卷压缩，下了不会合的人，自己搜论坛吧）
原示例文件（英文）.part2.rar (67.44 KB, 下载次数: 33)

2016-4-12 13:25 上传

点击文件名下载附件
原示例文件（英文）.part1.rar (273.44 KB, 下载次数: 264)

2016-4-12 13:25 上传

点击文件名下载附件
原说明文件（英文）.part3.rar (8.69 KB, 下载次数: 264)

2016-4-12 13:25 上传

点击文件名下载附件
原说明文件（英文）.part2.rar (273.44 KB, 下载次数: 304)

2016-4-12 13:25 上传

点击文件名下载附件
原说明文件（英文）.part1.rar (273.44 KB, 下载次数: 119)

2016-4-12 13:25 上传

点击文件名下载附件
如果再不会，问总版主或管理员吧，我的时间紧啊！……不好意思！

vnqf314

哈哈，我也是象楼主一样到处找代码的哟！有想法、有创意就到网上找代码，可能能成功！因你能想到，其实他人可能早就做到了！我的操作及效果：(多个对象一同设置）

user_aqbuv

楼上果然是精益求精啊！有点共享精神啊：）

leilonelin

对了，你的在2010下用起来正常吗？我的好象有些问题。

zcy_0610

我用的是2003，你在一楼说也适用于2010了？2010虽然增加了一些功能，但听说菜单的直观程度不及2003？
2010运行2003宏应当没问题吧，高版本下运行低版本还有问题？

user_duyte

有时有问题，有时就没问题，奇怪得很呢。特别是存成xlsm后。

user_ikpbk

学习，感谢

逝水无痕

这真是个好帖子，但我的水平太低，想问一问如何将图片与代码结合起来，运行的效果跟实例一样，非常感谢

user_dqozmfhu

非常好 刚好用到  2010使用正常
      使用很简单 把代码放进去 然后设置你要移动的图片 在“动作”菜单里设置启用宏 DragandDrop 就ok了

user_lyoeh

这真是个好帖子