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

【PPT 中也能实现图片的拖动功能】 本文档内包括两种方法来实现 现对 PPT 中如何实现：当播放PPT 时，能够随意拖动图片到指定位置(补充：通过插入制作好的也可以实现这样的效果，后续有时间了会接着发布的，敬请期待)。、 一、通过宏实现 PPT 中图片的拖动功能此处建议将宏的安全级别设置为低。 FLASH 打开你要设置图片拖动功能的 PPT ?点击菜单：“工具一一宏一一宏”，出现对话窗口。 填写对话窗口中的“宏名”，宏名可以随意命 名，比如： wantmove,再点“创建”，就进入代码模 式。 删去所看到的所有的代码，然后把下面的代码全拷贝进去。 Option Explicit Declare Function GetKeyState Lib user32 (ByVai nVirtKey As Long) As Integer Private Declare Function WindowFromPoint Lib user32 (ByVai xPoint As Long, ByVai yPoint As L ong) As Long Private Declare Function GetWindowRect Lib user32 (ByVai hwnd As Long, ipRect As RECT) As Long Private Deciare Function GetCursorPos Lib user32 (ipPoint As PointAPI) As Long Private 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 Long Private Declare Function GetSystemMetrics Lib user32 (ByVai nlndex As Long) As Long Private Const SM_SCREENX = 0 Private Const SM_SCREENY = 1 Private Const sigProc = Drag Drop Pubiic Const VK_SHIFT = H10 Pubiic Const VK_CTRL = H11 Pubiic Const VK_ALT = H12 Private Type Poi ntAPI x As Long y As Long End Type Pubiic 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 Draga ndDrop(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): dPoi nt.x = dx dy = GetSystemMetrics(SM_SCREENY): dPoi nt.y = dy GetCursorPos mPoi nt 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 +