楚江微雨 发表于 2019-7-14 20:02:00

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

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

esthershi 发表于 2019-7-15 03:01:58

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

flyingbird 发表于 2019-7-15 14:05:18

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

fdking 发表于 2019-7-16 00:40:31



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

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

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

然后就很简单了

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

cattyzhou 发表于 2019-7-16 13:36:38

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

lao_sir 发表于 2019-7-17 00:20:30



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

lilywjj 发表于 2019-7-17 03:57:00





第一个用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 发表于 2019-7-17 05:10:28

大佬
页: [1]
查看完整版本: 【提问】求助几个关于PPT的问题