ppt如何做拖动互动
发表于:2025-02-19 作者:千家信息网编辑
千家信息网最后更新 2025年02月19日,这篇文章主要为大家展示了"ppt如何做拖动互动",内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下"ppt如何做拖动互动"这篇文章吧。一、普通视图模式在普通视图模
千家信息网最后更新 2025年02月19日ppt如何做拖动互动
这篇文章主要为大家展示了"ppt如何做拖动互动",内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下"ppt如何做拖动互动"这篇文章吧。
一、普通视图模式
在普通视图模式(不是全屏模式)下,即在编辑状态下,自然能实现图片的拖动功能。
优点:简单易行。
缺点:1.窗口较小,可视性不好;2.自定义动画效果无法实现。
二、宏
建议将宏的安全级别设置为低。
1、新建一个ppt空白文档。
2、点击菜单:"工具--宏--宏",出现对话框。
3、对话框中"宏名"随意写个,比如:move,再点"创建",就进入代码模式。
4、删去所有的代码,把下面的代码全拷贝进去。
Option ExplicitDeclare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As LongPrivate Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPublic Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As LongPrivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongPrivate Const SM_SCREENX = 0Private Const SM_SCREENY = 1Private Const sigProc = "Drag & Drop"Public Const VK_SHIFT = &H10Public Const VK_CTRL = &H11Public Const VK_ALT = &H12Private Type PointAPI x As Long y As LongEnd TypePublic Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPIPublic ActiveShape As ShapeDim dragMode As BooleanDim dx As Double, dy As DoubleSub DragandDrop(sh As Shape)dragMode = Not dragModeIf dragMode Then Drag shEnd SubPrivate Sub Drag(sh As Shape)Dim i As Integer, sx As Integer, sy As IntegerDim mWnd As Long, WR As RECTdx = GetSystemMetrics(SM_SCREENX): dPoint.x = dxdy = GetSystemMetrics(SM_SCREENY): dPoint.y = dyGetCursorPos mPointWith 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.SlideHeightEnd WithIf dx > dy Then sx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2 dx = dyEnd IfIf dy > dx Then sy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2 dy = dxEnd IfWhile 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 SubWendEnd Sub
5、点击保存后,关闭代码模式,回到ppt设计页面。在你需要拖动的图片上点右键,选择"动作设置--单击鼠标--运行宏--确定"。
6、放映幻灯片,看看效果吧。
优点:可视性强。
缺点:对于PPT新手来说不易操作。
以上是"ppt如何做拖动互动"这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注行业资讯频道!
模式
代码
内容
篇文章
普通
优点
可视性
图片
对话框
效果
缺点
视图
学习
对话
帮助
易行
不易
安全
简单易行
不好
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
来赞达网络技术有限公司官网
软件开发技术好找工作吗
怎么代理网站服务器
学计算机软件开发需要英语好吗
登录cnki数据库
山西家业互联网科技有限公司
服务器编程的学习心得
msi服务器的云平台
软件开发公司无锡
网络安全讲座800字感想
信息化软件开发培训班
企业管理软件开发公司排名
温州软件开发薪资
浙江省万朋网络技术
国产 数据库 tidb
网络安全的自我承诺
机柜服务器散热空间
招银网络软件开发工程师
创造与魔法合并的服务器
观看黑龙江省网络安全图片
衢州桌面软件开发工具
地形数据库版本号
fm2019巨型数据库
现代网络技术重要性
区委网络安全信息化委员会
计算机软件开发与化学有关吗
保定创恒信网络技术
加强网络安全的最基本措施
储能软件开发需要什么知识
怎么跨数据库备份