Office学习社区 › Office入门和提高 › 求且让PPT中的小人能让鼠标拖动放至任意地方

fb8025 发表于 2018-12-16 18:24:00

求且让PPT中的小人能让鼠标拖动放至任意地方

各位老师：

想用PPT做一个足球练习方法的讲示板，需要能用鼠标点住运动员拖至任意地方。

希望知道制作的办法与过程。谢谢各位老师

ch2004 发表于 2018-12-16 19:33:00

需要通过控件或者宏来实现，我没试过，网上搜索下。

w700531 发表于 2018-12-16 19:57:24

参考附件代码。或安装课件宝这个软件更简单，无需写代码。

mitrix 发表于 2018-12-16 20:19:27

见3楼回复，及附件。

gzfanming 发表于 2018-12-16 20:23:43

太漂亮了，学习了！赶紧去下载这个化学快录软件！多谢！多谢！

piaolx 发表于 2018-12-16 20:34:51

更正一下，化学快录是word的插件，ppt中播放时可拖动对象，有一个ppt的插件叫课件宝，不需要写代码的。

mrmadme 发表于 2018-12-16 22:04:21

学习这个代码就行了
图片或图形的任意拖拽在课件和游戏中经常用到。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。

gate2237 发表于 2018-12-16 23:14:36

谢谢分享下载学习

查看完整版本: 求且让PPT中的小人能让鼠标拖动放至任意地方