您的位置：360文档中心› 如何在PPT中实现任意拖放图片效果

如何在PPT中实现任意拖放图片效果

合集下载

PPT播放过程中实现图片的任意拖拽和放大

PPT播放过程中实现图片的任意拖拽和放大

结合使用时出现问题
总结词
在同时使用PPT的拖拽和放大功能时，可能会出现操 作不流畅或功能冲突的问题。
详细描述
当同时使用拖拽和放大功能时，可能会出现操作不流畅 或功能冲突的问题。这可能是由于软件性能限制或文件 格式问题所致。为了解决这个问题，可以尝试以下方法： 首先，关闭不必要的程序以释放系统资源；其次，更新 PowerPoint软件到最新版本；最后，如果问题仍然存在， 可以考虑将PPT文件转换为其他支持更多功能的格式 （如PDF），以便更好地实现拖拽和放大功能。
05
常见问题及解决方案
拖拽功能无法使用
总结词
PPT的拖拽功能无法使用，可能是由于软件设置或文件格式问题。
详细描述
首先，检查PPT文件的格式是否支持拖拽功能。一般来说，较新版本的PowerPoint支持该功能。其次，检查播放 设置，确保拖拽功能已启用。在PowerPoint中，选择“幻灯片放映”选项卡，然后选择“设置幻灯片放映”， 确保“允许拖动重新定位幻灯片”选项已勾选。
在代码中添加适当的 错误处理机制，以防 止用户进行不当操作。
04
图片的任意拖拽和放大功能 结合使用
结合使用的实现原理
01 02
图片的任意拖拽
通过编程技术，实现在PPT播放过程中，用户可以自由拖动图片的位置。 这通常涉及到对PPT对象模型的编程接口进行操作，如VBA或 PowerPoint的COM自动化接口。
不同的浏览器和操作系统对 JavaScript的支持程度不同，可能导 致某些环境下拖拽功能无法正常工作。
安全性问题
用户体验考虑
在实现拖拽功能的同时，也要考虑用 户的使用体验，确保操作简便、直观。
确保插入的JavaScript代码安全可靠， 避免恶意代码对用户电脑造成损害。

两种方式实现PPT中实现图片的拖动功能

两种方式实现PPT中实现图片的拖动功能

两种方式实现P P T中实现图片的拖动功能集团文件版本号：（M928-T898-M248-WU2669-I2896-DQ586-M1988）【PPT中也能实现图片的拖动功能】本文档内包括两种方法来实现现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。

、一、通过宏实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。

1．打开你要设置图片拖动功能的PPT。

2．点击菜单：“工具——宏——宏”，出现对话窗口。

3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模式。

4．删去所看到的所有的代码，然后把下面的代码全拷贝进去。

Option ExplicitDeclare 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 LongPrivate Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Lo ng) 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 L ongPrivate 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 PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom 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 Integer Dim mWnd As Long, WR As RECTdx = GetSystemMetrics(SM_SCREENX): dPoint.x = dx dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dy GetCursorPos mPointWith ActivePresentation.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y) GetWindowRect mWnd, WRsx = WR.Leftsy = WR.TopEnd WithIf dx > dy Thendx = dyEnd IfIf dy > dx Thendy = dxEnd IfWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub5．点击“保存”后，关闭代码模式，回到ppt设计页面。

ppt课件可以拖动

ppt课件可以拖动

培训演示
在培训演示中，演示者可 以利用拖动功能进行互动 式的演示，提高演示效果 和参与度。
拖动功能与其他功能的比较
传统PPT
传统PPT功能较为简单，缺乏交 互性和可定制性，而拖动功能则
增强了这些方面的表现。
动画效果
虽然动画效果可以制作出炫酷的视 觉效果，但拖动功能更注重于交互 性和实用性。
视频教程
个性化教学
教师可根据学生的学习进度，将PPT的特定部分拖 动到学生端，满足个性化教学需求。
复习与巩固
学生可以自由调整PPT顺序，针对自己的薄弱环节 进行复习，巩固所学知识。
在企业培训中的应用
培训灵活性
员工可以根据自己的需求，自由调整培训内容的顺序，提高培训 效果。
自我学习
企业可以提供可拖动的PPT课件，供员工自主学习，提高员工的专 业技能。
拖动功能使得演示者可以根据现场情 况灵活调整幻灯片的播放顺序和位置 ，更加适应不同的演示需求和场景。
增强互动性
通过拖动功能，演示者可以邀请观众 参与互动，例如邀请观众自行调整幻 灯片的顺序或位置，增强了观众的参 与感和互动性。
不足
操作不熟练
对于不熟悉PPT操作的用户来说 ，拖动功能可能需要一定的学习 成本，如果操作不熟练，可能会
还可以使用Ctrl+X和Ctrl+Y来剪切和恢复对象的位置，从而实现在不同幻灯片之 间快速移动对象。
03
ppt课件拖动功能的优势与不 足
优势：提高演示效率，增强互动性
方便快捷
灵活展示
PPT课件的拖动功能使得演示者可以 快速地移动幻灯片，无需通过鼠标右 键或键盘快捷键进行操作，大大提高 了演示效率。
视频教程可以提供更为详细的教学 内容，但缺乏交互性和可定制性， 而拖动功能则可以弥补这一缺陷。

PPT电子相册怎么设置照片滑动效果

PPT电子相册怎么设置照片滑动效果

PPT是一款经常用到的办公软件，小编会陆续更新有关PPT的分享文章，希望与大家共同学习和成长。

下面介绍PPT电子相册怎么设置照片滑动效果。

PPT电子相册照片滑动效果
1、点击PTT文档上方菜单栏处的【插入】。

2、选择【相册】进行新建操作。

3、浏览并选择想要展示的图片或照片。

4、图片/照片插入成功后，在左侧选中图片所在幻灯片。

5、在上方切换效果处选择推入。

6、推入效果选项的下拉菜单中选择【自右侧】，这样电子相册中照片的滑动效果就设置好
了。

希望本次分享对您有所帮助，更多内容持续更新中。

两种方式实现：PPT中实现图片的拖动功能教学文案

两种方式实现：PPT中实现图片的拖动功能教学文案

两种方式实现：P P T 中实现图片的拖动功能【PPT中也能实现图片的拖动功能】本文档内包括两种方法来实现现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH 也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。

、一、通过宏实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。

1．打开你要设置图片拖动功能的PPT。

2．点击菜单：“工具——宏——宏”，出现对话窗口。

3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模式。

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 Long Private 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 dwFl ags 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 PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPI Public 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 = dx dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dy GetCursorPos mPointWith ActivePresentation.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y)GetWindowRect mWnd, WRsx = WR.Leftsy = WR.Topdx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidthdy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeightEnd WithIf dx > dy Thensx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2dx = dyEnd IfIf dy > dx Thensy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2dy = dxEnd IfWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub5．点击“保存”后，关闭代码模式，回到ppt设计页面。

两种方式实现：PPT中实现图片的拖动功能

两种方式实现：PPT中实现图片的拖动功能

【PPT中也能实现图片的拖动功能】本文档内包括两种方法来实现现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置(补充：通过插入制作好的FLASH 也可以实现这样的效果，后续有时间了会接着发布的，敬请期待)。

、一、通过宏实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。

1打开你要设置图片拖动功能的PPT2 •点击菜单：“工具一一宏一一宏”，出现对话窗口。

3. 填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove,再点“创建”，就进入代码模式。

4. 删去所看到的所有的代码，然后把下面的代码全拷贝进去。

Option ExplicitDeclare Function GetKeyState Lib "user32" (ByVai nVirtKey As Long) As IntegerPrivate Declare Function WindowFromPoint Lib "user32" (ByVai xPoint As Long, ByVai yPoint As L ong) As LongPrivate Declare Function GetWindowRect Lib "user32" (ByVai hwnd As Long, ipRect As RECT) As Long Private Deciare Function GetCursorPos Lib "user32" (ipPoint As PointAPI) As LongPrivate Deciare Function SetCursorPos Lib "user32" (ByVai x As Long, ByVai y As Long) As Long Pubiic Deciare Function MonitorFromPoint Lib "user32.dll" (ByVai x As Long, ByVai y As Long, By Vai dwFlags As Long) As LongPrivate Declare Function GetSystemMetrics Lib "user32" (ByVai nlndex As Long) As LongPrivate Const SM_SCREENX = 0Private Const SM_SCREENY = 1Private Const sigProc = "Drag & Drop"Pubiic Const VK_SHIFT = &H10Pubiic Const VK_CTRL = &H11Pubiic Const VK_ALT = &H12Private Type Poi ntAPIx As Longy As LongEnd TypePubiic Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPIPublic ActiveShape As ShapeDim dragMode As BooleanDim dx As Double, dy As DoubleSub Draga ndDrop(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): dPoi nt.x = dxdy = GetSystemMetrics(SM_SCREENY): dPoi nt.y = dyGetCursorPos mPoi ntWith ActivePresentation.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y)GetWindowRect mWnd, WRsx = WR.Leftsy = WR.Topdx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidthdy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeightEnd WithIf dx > dy Thensx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth/ 2dx = dyEnd IfIf dy > dx Thensy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight/ 2dy = dxEnd IfWhile dragModeGetCursorPos mPoi ntsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEve ntsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub5•点击“保存”后，关闭代码模式，回到ppt设计页面。

如何在幻灯片中添加幻灯片移动按钮

如何在幻灯片中添加幻灯片移动按钮

如何在幻灯片中添加幻灯片移动按钮幻灯片是我们常用的展示工具，可以通过动态的切换幻灯片来吸引观众的注意力。

在演示中，如果能够为幻灯片添加移动按钮，不仅可以方便地进行幻灯片的切换，还能增加交互性和视觉效果。

本文将介绍如何在幻灯片中添加幻灯片移动按钮的方法。

一、使用按钮插件使用按钮插件是一种简单且有效的方法，它可以帮助我们快速在幻灯片中添加移动按钮。

以下是具体步骤：1. 打开 PowerPoint 幻灯片编辑界面。

2. 在菜单栏中选择“插入”选项，并点击“按钮”按钮。

3. 在弹出的按钮样式选择窗口中，选择一个你喜欢的按钮样式，如箭头、圆形或者自定义图标。

4. 将按钮拖动到你想要放置的位置，然后调整按钮的大小和位置。

5. 双击按钮，可以设置按钮的动作。

点击“超链接到”选项，选择“幻灯片”并指定目标幻灯片。

6. 重复以上步骤，为每个需要添加移动按钮的幻灯片都添加按钮。

二、使用自定义动画效果除了使用按钮插件，我们还可以使用 PowerPoint 的自定义动画功能来添加移动按钮。

以下是具体步骤：1. 打开 PowerPoint 幻灯片编辑界面。

2. 选中一个形状，如一个矩形或一个箭头，作为移动按钮的图标。

3. 在菜单栏中选择“动画”选项，并点击“自定义动画”。

4. 在自定义动画任务窗格中，点击“添加效果”按钮，并选择“形状出现”或“形状移动”。

5. 调整动画效果的持续时间和延迟时间，并设置动画的触发方式为“单击形状”。

6. 将移动按钮图标拖动到需要添加移动按钮的幻灯片上，并调整图标的位置和大小。

7. 在动画列表中选择移动按钮的动画效果，并设置触发方式为“单击形状”。

8. 重复以上步骤，为每个需要添加移动按钮的幻灯片都添加动画效果。

三、使用超链接如果你不想使用按钮插件或者自定义动画，你还可以使用PowerPoint 的超链接功能来添加幻灯片移动按钮。

以下是具体步骤：1. 打开 PowerPoint 幻灯片编辑界面。

幻灯片的拖拽和排序功能

幻灯片的拖拽和排序功能

幻灯片的拖拽和排序功能幻灯片是一种常见的展示工具，通过其精美的视觉效果和简洁的表达方式，能够帮助我们更加生动地展示和传递信息。

而在使用幻灯片制作的过程中，拖拽和排序功能是一项非常重要的功能，它能够帮助我们更好地组织幻灯片内容，使其更具逻辑性和清晰度。

本文将就这方面展开论述。

一、拖拽功能的应用拖拽功能是幻灯片制作中的一项基本技能，它使得我们可以轻松地调整幻灯片内的各个元素的布局和位置，从而更好地满足展示需求。

比如，我们可以通过拖拽来调整文字框、图片、图表等元素的位置和大小，使其更加符合我们的主题和效果要求。

拖拽功能的使用也可以提高我们的工作效率，减少调整布局的时间，使得我们能更快速地完成幻灯片制作。

除了调整元素位置和大小，拖拽功能还可以用于幻灯片的重排。

在创建幻灯片时，如果我们觉得当前某个元素的位置不合适，我们可以通过拖拽把它移动到我们需要的位置上，从而使得幻灯片的结构更加合理和清晰。

这种重排的功能在幻灯片演示过程中也非常重要，我们可以随时通过鼠标拖拽来调整各个幻灯片的顺序，以满足演示的需要。

二、排序功能的使用除了拖拽功能外，排序功能也是幻灯片制作中必备的功能之一。

排序功能可以帮助我们将幻灯片内容按照一定的逻辑顺序进行排列，以保证信息的连贯性和易读性。

在制作幻灯片时，我们常常需要对文本或图片进行排序，比如按照时间顺序进行排序、按照重要性进行排序等。

排序功能可以帮助我们快速地实现这些需求。

通过简单的点击操作，我们就可以将元素按照字母顺序、数字顺序或其他自定义规则进行排序，使得幻灯片的内容更加有条理和易于理解。

在幻灯片演示过程中，排序功能也非常有用。

我们可以根据演示的需要，灵活地调整各个幻灯片的顺序，以便更好地表达我们的观点和内容。

此外，排序功能还可以帮助我们对演示中的幻灯片进行重新排列，以适应不同的观众需求和时间限制。

总结拖拽和排序功能是幻灯片制作中不可或缺的功能，它们使得我们可以方便地调整和组织幻灯片内的各个元素，使其更具逻辑性和清晰度。

制作PowerPoint幻灯片的拖拽动效果

制作PowerPoint幻灯片的拖拽动效果

制作PowerPoint幻灯片的拖拽动效果PowerPoint的幻灯片设计对于展示信息和进行演示非常重要。

其中拖拽动效是一种增强幻灯片视觉效果的方式，能够吸引观众并提升演示的质量。

本文将为您介绍如何制作PowerPoint幻灯片的拖拽动效果，让您的演示更加生动和吸引人。

一、了解拖拽动效的概念与应用场景拖拽动效是指在PowerPoint幻灯片中，通过鼠标拖拽文本、形状等元素实现的动画效果。

它可以被广泛应用于产品演示、培训课程、商业展示等场景中，能够让观众更好地理解和感受内容。

二、制作拖拽动效的准备工作在开始制作拖拽动效之前，我们需要准备一些材料和设置一些参数，以便顺利完成制作过程。

1. 材料准备：选择合适的背景、形状、图片等元素，并预先准备好跟踪对象。

2. 资源管理器：通过资源管理器，可以将所需的素材文件导入PowerPoint中，方便后续使用和查找。

3. 画布设置：根据演示的需要，设置合适的画布大小和背景颜色，以保证整个演示环境的一致性和美观性。

三、制作拖拽动效的具体步骤在准备工作完成后，我们可以开始制作幻灯片的拖拽动效。

1. 添加元素：将需要拖拽的元素添加到幻灯片中，例如一个形状、一段文本或者一张图片。

2. 设置动画效果：选中添加的元素，并在“动画”选项卡中选择合适的动画效果，如弹出、放大等。

可以通过先后顺序、持续时间等属性对动画效果进行定制。

3. 添加转场动画：在幻灯片切换时，可以添加一些过渡效果，使得拖拽动效的切换更加平滑和自然。

在“转场效果”选项卡中，选择适合的转场效果，并设置转场持续时间。

4. 设置拖拽路径：通过“切换转场动画”的设置，选择拖拽元素的路径，可以是直线、曲线、自定义路径等。

在设置路径时，可以通过拖动和调整控制点来达到理想效果。

5. 设置拖拽行为：在“切换转场动画”中，可以设置元素在拖拽过程中的行为，如是否可反弹、是否可手动拖拽等。

这些行为设置可以根据具体需求灵活调整。

6. 调试与预览：在完成路径和行为设置后，我们需要进行调试和预览，以确保拖拽动效的效果符合预期。

PPT中如何使用动路径工具制作对象移动效果

PPT中如何使用动路径工具制作对象移动效果

PPT中如何使用动路径工具制作对象移动效果在PPT中，使用动路径工具可以为对象添加移动效果，使幻灯片更加生动有趣。

本文将介绍如何使用动路径工具来实现对象的移动效果。

一、打开PPT并选择要添加效果的对象要使用动路径工具制作对象移动效果，首先需要打开PPT并选择要添加效果的对象。

可以是文字、图片、图表等。

二、进入动画选项卡并选择动画效果在PPT的顶部菜单栏中，点击“动画”选项卡，进入动画设置界面。

在这里可以选择各种动画效果，包括入场、强调和退出动画等。

三、选择“动画路径”工具在动画设置界面中，点击“动画路径”工具，它位于“自定义路径”和“动画样式画廊”之间。

通过点击该工具，在PPT中选择对象并绘制路径来实现移动效果。

四、绘制移动路径在选中对象的同时，可以使用鼠标左键点击并拖拽来绘制移动路径。

路径可以是直线、曲线或自定义路径，根据需要制作不同的效果。

五、调整路径细节在绘制完路径后，可以通过调整路径的方向、曲度和速度来精细调整对象的移动效果。

可以在路径上添加折点、删除折点、调整曲线等操作。

六、设置动画效果在路径绘制完成后，可以设置对象的动画效果。

可以选择不同的速度、延迟和持续时间，还可以选择是否启动时动画或单击时动画等选项。

七、预览和播放动画在完成动画设置后，可以通过点击“播放”按钮来预览动画效果。

可以根据需要进行微调，直到达到理想的效果。

八、制作多个对象移动效果如果需要在同一幻灯片中制作多个对象的移动效果，可以重复上述步骤。

每个对象可以选择不同的路径和动画效果，以创建更加丰富多样的动画效果。

九、保存并演示PPT在完成所有对象的移动效果设置后，记得保存PPT。

可以通过点击“演示放映”按钮，在全屏模式下展示PPT，让观众欣赏到精彩的动画效果。

总结：使用动路径工具制作对象移动效果可以为PPT幻灯片增添生动有趣的元素。

通过选择适当的动画效果和绘制合适的移动路径，可以制作出各种各样的移动效果，使幻灯片更加生动鲜活。

如何在PPT中实现任意拖放图片效果

如何在PPT中实现任意拖放图片效果

如何在PPT中实现任意拖放图片效果在PPT课件交互中，拖放操作一直是FLASH的优势，结合控件工具中的图片控件和VBA功能，实现起来也并不是太难，下面简单介绍下在PPT中实现任意拖放图片效果的方法，具体案例下载地址文后。

实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标(相当于Mouse_down)-移动鼠标(Mouse_move)和松开鼠标(Mouse_up)，只要能计算出图片在这个三个过程中的相对位置即可。

实现过程：1、插入图片(这个不能用插入图片的方法，而是通过图片控件(image控件)的方法，如下图：2、双击图像控件，输入以下代码：Dim X1, Y1 As Integer '用来记录位置Dim Down As Boolean '用来判断拖放状态Dim X2, Y2 As IntegerDim Down2 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 ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)'记算移动距离If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)'改变移动状态并显示移动后的图片Down = FalseSlideShowWindows(1).View.FirstEnd Sub继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。

两种方式实现：PPT中实现图片的拖动功能

两种方式实现：PPT中实现图片的拖动功能

【PPT中也能实现图片的拖动功能】本文档内包括两种方法来实现现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH 也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。

、一、通过宏实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。

1．打开你要设置图片拖动功能的PPT。

2．点击菜单：“工具——宏——宏”，出现对话窗口。

3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模式。

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 L ong) 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 Long Public Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, By Val 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 PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom 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.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y)GetWindowRect mWnd, WRsx = WR.Leftsy = WR.Topdx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidth dy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeight End WithIf dx > dy Thensx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2dx = dyEnd IfIf dy > dx Thensy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2dy = dxEnd IfWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub5．点击“保存”后，关闭代码模式，回到ppt设计页面。

两种方式实现：PPT中实现图片的拖动功能之欧阳文创编

两种方式实现：PPT中实现图片的拖动功能之欧阳文创编

【PPT中也能实现图片的拖动功能】本文档内包括两种方法来实现现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。

、一、通过宏实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。

1．打开你要设置图片拖动功能的PPT。

2．点击菜单：“工具——宏——宏”，出现对话窗口。

3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模式。

4．删去所看到的所有的代码，然后把下面的代码全拷贝进去。

Option ExplicitDeclare Function GetKeyState Lib "user32" (ByVal nVi rtKey As Long) As IntegerPrivate Declare Function WindowFromPoint Lib "user32 " (ByVal xPoint As Long, ByVal yPoint As Long) As Lo ngPrivate 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 dwFlag s As Long) As LongPrivate Declare Function GetSystemMetrics Lib "user3 2" (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 PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPI Public 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 Integer Dim mWnd As Long, WR As RECTdx = GetSystemMetrics(SM_SCREENX): dPoint.x = dx dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dy GetCursorPos mPointWith ActivePresentation.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y)GetWindowRect mWnd, WRsx = WR.Leftsy = WR.Topdx = (WR.Right - WR.Left) / ActivePresentation.P ageSetup.SlideWidthdy = (WR.Bottom - WR.Top) / ActivePresentation.P ageSetup.SlideHeightEnd WithIf dx > dy Thensx = sx + (dx - dy) * ActivePresentation.PageSet up.SlideWidth / 2dx = dyEnd IfIf dy > dx Thensy = sy + (dy - dx) * ActivePresentation.PageSet up.SlideHeight / 2dy = dxEnd IfWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Ex it SubWendEnd Sub5．点击“保存”后，关闭代码模式，回到ppt设计页面。

PPT中图片的任意拖拽

PPT中图片的任意拖拽

PPT中图片的任意拖拽PPT中图片的任意拖拽图片或图形的任意拖拽在课件和游戏中经常用到。

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。

实现在PPT演示过程中,用鼠标拖动图片

实现在PPT演示过程中,用鼠标拖动图片

实现在PPT演示过程中，用鼠标拖动图片1．新建一个ppt空白文档。

2．点击菜单：“工具——宏——宏”，出现对话框。

3．对话框中“宏名”写：drop（其他也可以），再点“创建”，就进入代码模式。

4．“Sub drop()'''End Sub”，类似的三句全删掉。

把下面的代码全拷贝进去。

————————————————————————————————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 Long Public 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 Long Private 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 PointAPIx As Longy As LongEnd TypePublic Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePublic mPoint As PointAPI, dPoint As PointAPI Public 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 = dx dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dyGetCursorPos mPointWith ActivePresentation.SlideShowWindowmWnd = WindowFromPoint(mPoint.x, mPoint.y)GetWindowRect mWnd, WRsx = WR.Leftsy = WR.Topdx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidthdy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeight End WithIf dx > dy Thensx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2dx = dyEnd IfIf dy > dx Thensy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2dy = dxEnd IfWhile dragModeGetCursorPos mPointsh.Left = (mPoint.x - sx) / dx - sh.Width / 2sh.Top = (mPoint.y - sy) / dy - sh.Height / 2DoEventsi = i + 1: If i > 2000 Then dragMode = False: Exit SubWendEnd Sub ————————————————————————————————5．点击保存后，关闭代码模式，回到ppt设计页面。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

如何在PPT中实现任意拖放图片效果
在PPT课件交互中，拖放操作一直是FLASH的优势，结合PPT控件工具中的图片控件和VBA功能，实现起来也并不是太难，下面简单介绍下在PPT中实现任意拖放图片效果的方法，具体案例下载地址文后。

实现方法和原理：图片拖放操作分三个过程，在图片上按下鼠标(相当于Mouse_down)-移动鼠标(Mouse_move)和松开鼠标(Mouse_up)，只要能计算出图片在这个三个过程中的相对位置即可。

实现过程：
1、插入图片(这个不能用插入图片的方法，而是通过图片控件(image控件)的方法，如下图：
2、双击图像控件，输入以下代码：
Dim X1, Y1 As Integer '用来记录位置Dim Down As Boolean '用来判断拖放状态Dim X2, Y2 As Integer
Dim Down2 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
继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。

相关文档
最新文档