【提问】求助几个关于PPT的问题

楚江微雨

1、PPT中可不可以制作在放映中用鼠标可以拖动的对象？······2、可不可以制作鼠标移过触发动画？（注意！是触发动画！不是切换幻灯片！）3、如果第一条可以的话，能不能使这个对象拖动到指定位置触发动画？类似触发器那样？

esthershi

2可以实现，触发器，1的话估计得vbs

flyingbird

一般能度娘的我都不详细写，触发器也不是很难的东西，vba的话倒是要求很高

fdking

拿我以前的动画举例首先复制一份

把前一个窗格的动画全部删光光后一个窗格第一个动画设置从上一项开始，就实现了切换就播放动画

为了明显我插入了一个形状，实际可以把页面元素或者插入空矩形（没有填充和轮廓的）打开操作设置（太久没用不记得在哪了，直接搜索的，尴尬

然后就很简单了

待会录gif注意事项，这两张中间切换选无

cattyzhou

录的太大就不放了，压不下来，基于现在元素排列，后产生的动画就可以这样做，碰到就播放，使用空白矩形更好使

lao_sir

ok了，都是划过，PPT论坛gif大小要求真苦

lilywjj

第一个用vba实现了，那么第三个配合第二个就很好做了代码DimX1,Y1AsIntegerDimDownAsBooleanPrivateSubImage1_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,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,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)Down=FalseSlideShowWindows(1).View.FirstEndSub

llx751519

大佬