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

【PPT中也能实现图片的拖动功能】 本文档内包括两种方法来实现 现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。、 一、通过宏实现PPT中图片的拖动功能 此处建议将宏的安全级别设置为低。 1．打开你要设置图片拖动功能的PPT。 2．点击菜单：“工具——宏——宏”，出现对话窗口。 3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模式。 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.Sl