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

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

2、te 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 F

3、unction 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

4、) 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 = &

5、;H12Private Type PointAPI x As Long y As LongEnd TypePublic Type RECT Left As Long Top As Long Right As Long Bottom 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

6、dragMode If dragMode Then Drag sh End 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.SlideShowWin

7、dow 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.SlideHeightEnd WithIf dx > dy Then sx = sx + (dx - dy) * ActivePresentation.P

8、ageSetup.SlideWidth / 2 dx = dyEnd IfIf dy > dx Then sy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2 dy = dxEnd IfWhile dragMode GetCursorPos mPoint sh.Left = (mPoint.x - sx) / dx - sh.Width / 2 sh.Top = (mPoint.y - sy) / dy - sh.Height / 2 DoEvents i = i + 1: If i > 2000 Th

9、en dragMode = False: Exit SubWendEnd Sub5点击“保存”后，关闭代码模式，回到ppt设计页面。在你需要拖动的图片上鼠标右击，选择“动作设置单击鼠标运行宏确定”！6放映幻灯片，看看效果吧。拖动图片方式：播放PPT，在图片上单击鼠标，放开后，图片就随你鼠标移动，如果你再单击鼠标，图片就停在你单击的地方。二、通过VBA编实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。1在演示文稿插入图像控件（视图工具栏控件工具箱），打开属性窗口，将picture设成你想拖动的图片（图片大小要根据实际情况进行调整），遗憾的是Image控件不支持透明。2双击图像控件，打开

10、的VBA编辑窗口（注意双击后先删除所有代码），复制下面的代码：Dim X1, Y1 As IntegerDim Down As BooleanPrivate 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 Sh

11、ift 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)

12、.View.FirstEnd Sub3保存，关闭VBA编辑窗口，放映幻灯片，即可看效果了。4如果你想拖动多张图片，如法炮制，复制上面的三个鼠标事件，修改Image1、X1、Y1。拖动图片方式：播放PPT，在图片上按住鼠标，并且要长按住，这样图片才会随你鼠标移动，放开后，图片就停在你放开的地方。富不贵只能是土豪，你可以一夜暴富，但是贵气却需要三代以上的培养。孔子说“富而不骄，莫若富而好礼。” 如今我们不缺土豪，但是我们缺少贵族。高贵是大庇天下寒士俱欢颜的豪气与悲悯之怀，高贵是位卑未敢忘忧国的壮志与担当之志 高贵是先天下之忧而忧的责任之心。精神的财富和高贵的内心最能养成性格的高贵，以贵为美，在不知不觉中营造出和气的氛围；以贵为高，在潜移默化中提升我们的素质。以贵为尊，在创造了大量物质财富的同时，精神也提升一个境界。一个心灵高贵的人举手投足间都会透露出优雅的品质，一个道德高贵的社会大街小巷都会留露出和谐的温馨，一