实现在PPT演示过程中-用鼠标拖动图片(共5页).doc

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