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

实现在PPT演示过程中-用鼠标拖动图片 实现在PPT演示过程中，用鼠标拖动图片 1．新建一个ppt空白文档。 2．点击菜单：“工具——宏——宏”，出现对话框。 3．对话框中“宏名”写：drop（其他也可以），再点“创建”，就进入代码模式。 4．“Sub drop() End Sub”，类似的三句全删掉。把下面的代码全拷贝进去。 ———————————————————————————————— Option Explicit 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