首页 >常见问题 > 正文

ppt怎么做拖动互动

原创2020-01-15 09:23:0001229

PPT中实现图片的拖动功能的方法:

一、普通视图模式

在普通视图模式(不是全屏模式)下,即在编辑状态下,自然能实现图片的拖动功能。

优点:简单易行。

缺点:1.窗口较小,可视性不好;2.自定义动画效果无法实现。

二、宏

建议将宏的安全级别设置为低。

1、新建一个ppt空白文档。

2、点击菜单:“工具——宏——宏”,出现对话框。

3、对话框中“宏名”随意写个,比如:move,再点“创建”,就进入代码模式。

4、删去所有的代码,把下面的代码全拷贝进去。

Option Explicit
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_SCREENX = 0
Private Const SM_SCREENY = 1
Private Const sigProc = "Drag & Drop"
Public Const VK_SHIFT = &H10
Public Const VK_CTRL = &H11
Public Const VK_ALT = &H12
Private Type PointAPI
    x As Long
    y As Long
End Type
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Public mPoint As PointAPI, dPoint As PointAPI
Public ActiveShape As Shape
Dim dragMode As Boolean
Dim dx As Double, dy As Double
Sub DragandDrop(sh As Shape)
dragMode = Not dragMode
If dragMode Then Drag sh
End Sub
Private Sub Drag(sh As Shape)
Dim i As Integer, sx As Integer, sy As Integer
Dim mWnd As Long, WR As RECT
dx = GetSystemMetrics(SM_SCREENX): dPoint.x = dx
dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dy
GetCursorPos mPoint
With ActivePresentation.SlideShowWindow
    mWnd = WindowFromPoint(mPoint.x, mPoint.y)
    GetWindowRect mWnd, WR
    sx = WR.Left
    sy = WR.Top
    dx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidth
    dy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeight
End With
If dx > dy Then
    sx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2
    dx = dy
End If
If dy > dx Then
    sy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2
    dy = dx
End If
While dragMode
    GetCursorPos mPoint
    sh.Left = (mPoint.x - sx) / dx - sh.Width / 2
    sh.Top = (mPoint.y - sy) / dy - sh.Height / 2
    DoEvents
    i = i + 1: If i > 2000 Then dragMode = False: Exit Sub
Wend
End Sub

5、点击保存后,关闭代码模式,回到ppt设计页面。在你需要拖动的图片上点右键,选择“动作设置——单击鼠标——运行宏——确定”。

6、放映幻灯片,看看效果吧。

优点:可视性强。

缺点:对于PPT新手来说不易操作。

以上就是ppt怎么做拖动互动的详细内容,更多请关注php中文网其它相关文章!

php中文网最新课程二维码
  • 相关标签:ppt 拖动
  • 本文原创发布php中文网,转载请注明出处,感谢您的尊重!
  • 相关文章

    相关视频


    网友评论

    文明上网理性发言,请遵守 新闻评论服务协议

    我要评论
  • 一段视频素材需要被多次使用,一次一次的放实在是麻烦,这该办呢?只要在剪辑轨道中按住Alt键、直接想要的素材就可以快速进行复制~
    使用SQL进行数据操作,用户只需提出“”,而不必指明“”,因此用户无须了解存取路径,存取路径的选择以及SQL语句的操作过程由系统自完成;SQL采用集合操作方式。
    最近呢刚好了一个省市联的功能,今天看到有人问这个,我就把我的放上来共享一下:首先呢,来看看效果,点击文字【点击】,弹出选择窗口,点击取消或者确定【取消、确定按钮在选择框上边,截图有些不清楚】
    excel数字不变的解决办法:首先打开一个excel表格,并且选中“数据”选项;然后点击excel表格界面中右下角的“自填充”选项;最后选择“填充序列”的选项即可正常数字。

    2019-12-20

    1275

    CSS入门教程:在CSS中,我们通过float属性实现元素的浮。浮的框可以向左或向右移,直到它的外边缘碰到包含框或另一个浮框的边框为止。
    win7启盘的制作方法:首先检测电脑的硬件与系统环境是否适合重装系统;然后选择“U盘模式”并格式化U盘,清空U盘里面的所有文件;接着选择win7系统下载;最后开始制作启盘并直接安装win7系统即可。
    设置ppt棋盘画的方法:首先在菜单栏中点击“幻灯片放映”命令;然后在“幻灯片放映”下找到自定义画;接着找到添加效果的命令;最后依次点击“添加效果”-“进入”-“其他效果”,并在“其他效果”中选择棋盘
    ppt表格自求和的方法:首先打开ppt并点击插入;然后进入插入页面并点击插入Excel表格;接着在插入Excel表格后,进入Excel界面计算;最后输入公式求和并按Esc键返回ppt界面即可。
    PPT添加作按钮的方法是:1、打开PPT,依次点击【插入】、【形状】,选择一个合适的形状;2、依次点击【插入】、【作】;3、勾选【超链接到】,选择超链接到的位置即可。
    pr无法素材到序列的解决办法:首先在左下角的素材版块中,鼠标双击项目下的空白位置;然后在电脑硬盘中找到想要编辑的素材,点击打开;最后用鼠标左键按住素材版块中的视频,直接到右侧的时间轴空白处即可。
    ppt设置自换行的方法:首先在电脑上打开ppt文件;然后在菜单栏选项“开始”中找到“对齐文本”选项进行点击;接着在其下拉选项中找到并点击“其他选项”;最后进入文本框的设置页面,并勾选“形状中的文字自换行
    excel表格自筛选的使用方法:首先找到excel表格中的数据;然后用鼠标选中整个表格;接着用鼠标点击数据,找到自筛选;最后用鼠标点击销售额下方的三角形并选择需要筛选的数据即可。
    小程序图片的方法:小程序使用swiper组件即可图片,在此组件中添加图片路径,然后在toupper:function()函数中设置图片滚触发条件即可。
    方法:1、打开ppt,选中图片;2、点击菜单栏中的“画”;3、选择一个“画效果”并修改参数;4、点击“确定”即可。
    ppt文本框设置画效果的方法:首先打开ppt软件;然后点击“画”并选择“自定义画”;接着选择需要添加的内容并选择添加画效果;最后点击任意效果并设置效果属性快慢以及声音即可。
    ppt设置自播放间隔时间的方法:1、在PPT页面上方点击“切换”选项。2、在弹出来的页面的右边点击“设置自换片时间”前面的勾选,在后面设置的时间就是间隔时间。
    步骤:1、打开ppt,选中要设置的文字,选择“画”里的“自定义画”;2、点击右边的添加效果,选择“弹跳”;3、右击设置的画效果,选择“效果选项”;4、展开画文本,选择“按字母”,设置下面的延迟,

    专题推荐

    推荐视频教程
  • PHP数据库编程零基础入门到精通PHP数据库编程零基础入门到精通
  • PHP经典算法面试题PHP经典算法面试题
  • PHP文件基础操作PHP文件基础操作
  • PHP开发免费公益直播课PHP开发免费公益直播课
  • 视频教程分类