goodscx 发表于 2010-8-30 16:00:00

VBA突击----图片的任意拖拽 ---问题已解决

图片或图形的任意拖拽在课件和游戏中经常用到。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。

lanyan198725 发表于 2010-8-30 17:00:31

VBA高手在吗请教了

user_eytpl 发表于 2010-8-30 17:07:32

我做出了拖动一个图片的，谁知道多个图片的拖动怎么做

user_ejlexqox 发表于 2010-8-30 18:50:12

有要多张图拖拽的吗，请回帖我可以发附件
页: [1]
查看完整版本: VBA突击----图片的任意拖拽 ---问题已解决