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

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

2、ibuser32(ByValnVirtKeyAsLong)AsIntegerPrivateDeclareFunctionWindowFromPointLibuser32(ByValxPointAsLong,ByValyPointAsLong)AsLongPrivateDeclareFunctionGetWindowRectLibuser32(ByValhwndAsLong,lpRectAsRECT)AsLongPrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPointAPI)AsLongPrivateDeclareFunctionSet

3、CursorPosLibuser32(ByValxAsLong,ByValyAsLong)AsLongPublicDeclareFunctionMonitorFromPointLibuser32.dll(ByValxAsLong,ByValyAsLong,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetSystemMetricsLibuser32(ByValnIndexAsLong)AsLongPrivateConstSM_SCREENX=0PrivateConstSM_SCREENY=1PrivateConstsigProc=Drag&Dr

4、opPublicConstVK_SHIFT=&H10PublicConstVK_CTRL=&H11PublicConstVK_ALT=&H12PrivateTypePointAPIxAsLongyAsLongEndTypePublicTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePublicmPointAsPointAPI,dPointAsPointAPIPublicActiveShapeAsShapeDimdragModeAsBooleanDimdxAsDouble,dyAsDoubleSubDragandDrop(shAs

5、Shape)dragMode=NotdragModeIfdragModeThenDragshEndSubPrivateSubDrag(shAsShape)DimiAsInteger,sxAsInteger,syAsIntegerDimmWndAsLong,WRAsRECTdx=GetSystemMetrics(SM_SCREENX):dPoint.x=dxdy=GetSystemMetrics(SM_SCREENY):dPoint.y=dyGetCursorPosmPointWithActivePresentation.SlideShowWindowmWnd=WindowFromPoint(m

6、Point.x,mPoint.y)GetWindowRectmWnd,WRsx=WR.Leftsy=WR.Topdx=(WR.Right-WR.Left)/ActivePresentation.PageSetup.SlideWidthdy=(WR.Bottom-WR.Top)/ActivePresentation.PageSetup.SlideHeightEndWithIfdxdyThensx=sx+(dx-dy)*ActivePresentation.PageSetup.SlideWidth/2dx=dyEndIfIfdydxThensy=sy+(dy-dx)*ActivePresentat

7、ion.PageSetup.SlideHeight/2dy=dxEndIfWhiledragModeGetCursorPosmPointsh.Left=(mPoint.x-sx)/dx-sh.Width/2sh.Top=(mPoint.y-sy)/dy-sh.Height/2DoEventsi=i+1:Ifi2000ThendragMode=False:ExitSubWendEndSub5.点击“保存”后，关闭代码模式，回到ppt设计页面。在你需要拖动的图片上鼠标右击，选择“动作设置单击鼠标运行宏确定”！6放映幻灯片，看看效果吧。拖动图片方式：播放PPT，在图片上单击鼠标，放开后，图片就随你鼠

8、标移动，如果你再单击鼠标，图片就停在你单击的地方。二、通过VBA编实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。在演示文稿插入图像控件(视图一一工具栏一一控件工具箱)，打开属性窗口，将picture设成你想拖动的图片(图片大小要根据实际情况进行调整)，遗憾的是Image控件不支持透明。双击图像控件，打开的VBA编辑窗口(注意双击后先删除所有代码)，复制下面的代码：DimX1,Y1AsIntegerDimDownAsBooleanPrivateSubImage1_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSi

9、ngle,ByValYAsSingle)IfNotDownThenX1=XY1=YDown=TrueEndIfEndSubPrivateSubImage1_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)IfDownThenImage1.Left=Image1.Left+X-X1Image1.Top=Image1.Top+Y-Y1X1=XY1=YEndIfEndSubPrivateSubImage1_MouseUp(ByValButtonAsInteger,ByValShiftAs

10、Integer,ByValXAsSingle,ByValYAsSingle)Down=FalseSlideShowWindows(1).View.FirstEndSub3保存，关闭VBA编辑窗口，放映幻灯片，即可看效果了。4如果你想拖动多张图片，如法炮制，复制上面的三个鼠标事件，修改Image1、X1、Y1。拖动图片方式：播放PPT,在图片上按住鼠标，并且要长按住，这样图片才会随你鼠标移动，放开后,图片就停在你放开的地方。喜欢生气，疾病就越来越多；喜欢施财，富贵就越来越多；喜欢享福，痛苦就越来越多；喜欢学习，智慧就越来越多。土豪，但是我们缺少贵族。高贵是大庇天下寒士俱欢颜的豪气与悲悯之怀，高贵是位卑未敢忘忧国的壮志与担当之志高贵是先天下之忧而忧的责任之心。精神的财富和高贵的内心最能养成性格的高贵，以贵为美，在不知不觉中营造出和气的氛围；以贵为高，在潜移默化中提升我们的素质。以贵为尊，在创造了大量物质财富的同时，精神也提升一个境界。一个心灵高贵的人举手投足间都会透露出优雅的品质，一个道