倒计时PPT

ngcg · 发表于 2014-8-26 17:36

Timer.rar (43.42 KB, 下载次数: 588)
这是几年前写的，用ESC键能终止运行。

weiyingde · 发表于 2015-12-2 15:34

很好，提个建议，若能派上用场，必须完善：
1、能够植入模版之中，便于每张中都能调用。
2、缩小横排，放在底部，以便时间显示和内容显示两不误。
这样做的好处是：
便于在使用幻灯片时，准确把握时间。

笑啊笑傲 · 发表于 2015-12-2 16:23

牛，我想在自己的ppt里面使用如何用呢

彼岸91 · 发表于 2015-12-2 21:03

没看懂这个是怎么用的。。。也没看出放在ppt里面怎么表现

H77 · 发表于 2016-1-7 09:20

谢谢楼主分享

dongdonggege · 发表于 2016-4-30 22:42

功力强劲，几年过去了，还有生命力，其中
Sub Initialize()
  Title = ChrW$(&H58F0) + ChrW$(&H6BCD) + ChrW$(&H8FF7) + ChrW$(&H5BAB) '声母迷宫
  With ActivePresentation.PageSetup
.SlideSize = ppSlideSizeOnScreen16x9 'ppSlideSizeOnScreen
  End With
  Timer
End Sub
这句.SlideSize = ppSlideSizeOnScreen16x9，改为.SlideSize = ppSlideSizeOnScreen，才能运行。如果改为宽高比为16:9，改成这样，是否更恰当：.SlideWidth = .SlideHeight * 16 / 9，看网上都是像你一样的代码，但是在2003运行，会提示pagesetup(unknown member)，我不知对否？

ds487 · 发表于 2016-12-11 17:15

这个真不知道怎么用。高手！

小虎虎66 · 发表于 2016-12-15 09:55

很不错，值得学习

		自动登录	找回密码
密码			免费注册

[分享] 倒计时PPT

评分