作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
0Mouse |
Q：如何运用VBA获取使用排练计时PPT的总放映时长呢？
A：遍历PPT中的每一张幻灯片，将各幻灯片的“设置自动换片时间”进行累加即可，代码如下：
- Sub 运用VBA获取使用排练计时PPT的总放映时长()
- Dim i As Integer, T As Single
- With ActivePresentation
- For i = 1 To .Slides.Count
- T = T + .Slides(i).SlideShowTransition.AdvanceTime
- Next i
- End With
- MsgBox "总放映时长为" & T & "秒。", vbInformation, "xqoa"
- End Sub
附件：
 运用VBA获取使用排练计时PPT的总放映时长.rar
|
2楼
水星钓鱼 |
学习 |
3楼
hustclm |
那如何通过VBA设置倒计时时间了？假如每个人10分钟，从10开始到0后，退出放映模式。 |
4楼
0Mouse |
这个问题挺棒的！对PPT-VBA不熟，PPT应该是没有application.ontime方法，暂时没想到什么好法子，要不你直接发个提问帖吧，我也跟着学一哈！:-) |
5楼
0Mouse |
如何让PPT倒计时，时间到后退出放映模式
(出处: Excel 技巧网)
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一