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

【PPT中也能实现图片的拖动功能】

本文档内包括两种方法来实现

现对PPT中如何实现：当播放PPT时，能够随意拖动图片到指定位置（补充：通过插入制作好的FLASH

也可以实现这样的效果，后续有时间了会接着发布的，敬请期待）。、

一、通过宏实现PPT中图片的拖动功能

此处建议将宏的安全级别设置为低。

1．打开你要设置图片拖动功能的PPT。

2．点击菜单：“工具——宏——宏”，出现对话窗口。

3．填写对话窗口中的“宏名”，宏名可以随意命名，比如：wantmove，再点“创建”，就进入代码模

式。

4．删去所看到的所有的代码，然后把下面的代码全拷贝进去。

OptionExplicit

DeclareFunctionGetKeyStateLibuser32(ByValnVirtKeyAsLong)AsInteger

PrivateDeclareFunctionWindowFromPointLibuser32(ByValxPointAsLong,ByValyPointAsL

ong)AsLong

PrivateDeclareFunctionGetWindowRectLibuser32(ByValhwndAsLong,lpRectAsRECT)As

Long

PrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPointAPI)AsLong

PrivateDeclareFunctionSetCursorPosLibuser32(ByValxAsLong,ByValyAsLong)AsLong

PublicDeclareFunctionMonitorFromPointLibuser32.dll(ByValxAsLong,ByValyAsLong,By

ValdwFlagsAsLong)AsLong

PrivateDeclareFunctionGetSystemMetricsLibuser32(ByValnIndexAsLong)AsLong

PrivateConstSM_SCREENX=0

PrivateConstSM_SCREENY=1

PrivateConstsigProc=DragDrop

PublicConstVK_SHIFT=H10

PublicConstVK_CTRL=H11

PublicConstVK_ALT=H12

PrivateTypePointAPI

xAsLong

yAsLong

EndType

PublicTypeRECT

LeftAsLong

TopAsLong

RightAsLong

BottomAsLong

EndType

PublicmPointAsPointAPI,dPointAsPointAPI

PublicActiveShapeAsShape

DimdragModeAsBoolean

DimdxAsDouble,dyAsDouble

SubDragandDrop(shAsShape)

dragMode=NotdragMode

IfdragModeThenDragsh

EndSub

PrivateSubDrag(shAsShape)

DimiAsInteger,sxAsInteger,syAsInteger

DimmWndAsLong,WRAsRECT

dx=GetSystemMetrics(SM_SCREENX):dPoint.x=dx

dy=GetSystemMetrics(SM_SCREENY):dPoint.y=dy

GetCursorPosmPoint

WithActivePresentation.SlideShowWindow

mWnd=WindowFromPoint(mPoint.x,mPoint.y)

GetWindowRectmWnd,WR

sx=WR.Left

sy=WR.Top

dx=(WR.Right-WR.Left)/ActivePresentation.Pa