跪求达人帮忙，拖拽效果，万分感谢！着急赛课用！

wwslb

本人赛课急用图片拖拽效果！跪求达人帮忙，全天在线等候。万分感谢！ 拖拽效果！跪求达人帮忙，谢谢.rar (13.24 KB, 下载次数: 25)

2012-5-6 07:44 上传

点击文件名下载附件

fovisio

帮你找的资料，供你参考！

图片或图形的任意拖拽在课件和游戏中经常用到。PPT中要实现图片或图形的任意拖拽需要通过VBA编程。现介绍利用图像控件实现图片任意拖拽的方法：

1.在演示文稿插入图像控件，打开属性窗口，将picture设成你想拖动的图片，遗憾的是Image控件不支持透明。

2. 双击图像控件，打开的VBA编辑窗口（注意双击后已有两行代码，先删除），复制下面的代码：
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

运行，OK。

代码很简单，如果你想拖动多张图片，如法炮制，复制上面的三个鼠标事件，修改Image1、X1、Y1。

fovisio

再分享一些资料给你：

http://club.excelhome.net/thread-758307-1-1.html

wwslb

fovisio 发表于 2012-5-6 08:27
再分享一些资料给你：

http://club.excelhome.net/thread-758307-1-1.html

谢谢您。
不过我对编程一点基础都没有！还是不会呀。

wwslb

fovisio 发表于 2012-5-6 08:27
再分享一些资料给你：

http://club.excelhome.net/thread-758307-1-1.html

昨晚我也搜到这个了，一直弄到现在，还是不会。
谢谢您。

wwslb

还有哪位大侠帮帮忙呀？