求助：PPT实现在窗体上随意拖动图片框或文本框

求助：PPT实现在窗体上随意拖动图片框或文本框

通过扑奔，论坛中的高手给我带来了希望，让我对ppt有了崭新的认识：ppt是很牛的！

目前，就是遗憾没能学习到在窗体上随意拖动图片框或文本框，

希望论坛中的高人能指点指点小弟，
小弟对VBA不懂，所以希望高手能做这个问题的模板或教程，使自己能用起来！
在此谢谢了！
等待中……


另外，在网络中找到一段据说可以实现的代码（如下），可惜我不会！希望有高手、牛人知道！
再次谢谢！！！

Private Sub Form_Load()
Picture1.DragMode = 1 '设置图片框控件为自动拖动模式
Text1.DragMode = 1 '设置文本框控件为自动拖动模式
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y '将源控件移到鼠标指针所指新位置
End Sub

[ 本帖最后由 cobra7007 于 2009-3-25 17:26 编辑 ]