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

合集下载

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

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

两种方式实现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时，能够随意拖动图片到指定位置（补充：通过插入制作好的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制作幻灯片滑动放映效果教程
首先是开始画图示。

我们出5个按钮图示。

这里一样的图示不必要重复画，只要画出一个后点击ctrl 拖拽该图示即可。

2 当五个图示都画完的时候，为了规则和分布均匀，全选然后横向分布和纵向分布。

并在
在图示中输入文字，并画好图片框。

3在图片框里一次插入5张图片。

选中所有图示，点击添加动画下的进入效果“切入”
4依次设置图示出现的填充颜色效果(出现时颜色为红色)
选中画出的图片框及图片，设置出现效果为“切入”—效果选项“自底部”
5 图片的退出效果“切出”，效果选项“到右侧”;退出的同时顶部图标“填充颜色”为灰色。

依次设置新的图片即可。

简单的图片出现效果会为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 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 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 = 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 / 2 dy = 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设计页面。

ppt课件可以拖动

培训演示
在培训演示中，演示者可以利用拖动功能进行互动式的演示，提高演示效果和参与度。
拖动功能与其他功能的比较
传统PPT
传统PPT功能较为简单，缺乏交互性和可定制性，而拖动功能则
增强了这些方面的表现。
动画效果
虽然动画效果可以制作出炫酷的视觉效果，但拖动功能更注重于交互性和实用性。
视频教程
个性化教学
教师可根据学生的学习进度，将PPT的特定部分拖动到学生端，满足个性化教学需求。
复习与巩固
学生可以自由调整PPT顺序，针对自己的薄弱环节进行复习，巩固所学知识。
在企业培训中的应用
培训灵活性
员工可以根据自己的需求，自由调整培训内容的顺序，提高培训效果。
自我学习
企业可以提供可拖动的PPT课件，供员工自主学习，提高员工的专业技能。
拖动功能使得演示者可以根据现场情况灵活调整幻灯片的播放顺序和位置，更加适应不同的演示需求和场景。
增强互动性
通过拖动功能，演示者可以邀请观众参与互动，例如邀请观众自行调整幻灯片的顺序或位置，增强了观众的参与感和互动性。
不足
操作不熟练
对于不熟悉PPT操作的用户来说，拖动功能可能需要一定的学习成本，如果操作不熟练，可能会
还可以使用Ctrl+X和Ctrl+Y来剪切和恢复对象的位置，从而实现在不同幻灯片之间快速移动对象。
03
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电子相册照片滑动效果
1、点击PTT文档上方菜单栏处的【插入】。

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

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

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

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

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

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

两种方式实现：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时，能够随意拖动图片到指定位置(补充：通过插入制作好的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设计页面。

实现在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设计页面。

幻灯片的拖拽和排序功能

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

实现过程：1、插入图片(这个不能用插入图片的方法，而是通过图片控件(image控件)的方法，如下图：12、双击图像控件，输入以下代码：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 Sub3继续思考：如何实现图片位置初始化呢?如果你能想出解决办法，你就理解这里的实现原理了。

ppt怎么设置自由移动图片

ppt怎么设置自由移动图片
你知道在ppt文件里面如何去移动不同的图片吗?下面就让店铺告诉你移动ppt中图片的方法。

ppt自由移动图片的方法
在你的电脑上找到POWERPOINT工具图标，双击打开它。

打开POWERPOINT工具后，点插入选项，插入两个图片到编辑区范围内。

插入两个图片后，按住SHIFT键单击这两个图片，然后全部选中它们。

在PPT工具的左下角找到“绘图”按钮，单击一下它。

单击一下“绘图”按钮之后，单击一下“组合”按钮，这时这两个图片将永远同时动作和移动了。

如果你想让别人看得更明显，你可以用“动画效果”，设置“时间”，别人就能轻易地看出它的动画效果和同时动作的样子了。