user_yuqif 发表于 2016-4-12 12:16:33

[分享]倒时计时器

我制作了一个倒时计时器供大家参考。

saga_0 发表于 2016-4-12 13:17:07

谢谢

user_stbhg 发表于 2016-4-12 13:18:10

谢谢

user_unfch 发表于 2016-4-12 13:27:48

怎么用？

韩忍18 发表于 2016-4-12 13:37:03

能教一下我怎么做吗？我也想自己能做一个。谢谢

xue9122 发表于 2016-4-12 13:43:21

代码不错。就是那个Start不动作。

weiping858 发表于 2016-4-12 13:43:43

好，我下来看看

jinxun 发表于 2016-4-12 13:46:47

是高版本做的?除了能看到文字和几个框框外,我什么效果都没有看到哟{:5_224:}

mingxiangf 发表于 2016-4-12 13:53:18

要运行宏的 我看了 没什么用处阿

apple3302 发表于 2016-4-12 13:56:44

倒计时，我找了很久了。谢谢。
Sub Timer()    Dim TDuration As Long    Dim xtime As Date    xtime = Now    Const THour = 1    Const TMin = 30    TDuration = THour * 60 * 60 + TMin * 60    ActivePresentation.Slides(1).Shapes("Date").TextFrame.TextRange.Text = FormatDateTime(Date, 1)    If THour > 0 Then      ActivePresentation.Slides(1).Shapes("Duration").TextFrame.TextRange.Text = Trim(Str(THour)) + " h " + Trim(Str(TMin)) + " min"    Else      ActivePresentation.Slides(1).Shapes("Duration").TextFrame.TextRange.Text = Str(TMin) + " min"    End If      Do While (TDuration > -1)      DoEvents      ActivePresentation.Slides(1).Shapes("Time").TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")))      If Format(Now, "ss") <> Format(xtime, "ss") Then            xtime = Now            ActivePresentation.Slides(1).Shapes("TimeLeft").TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")) - _                TimeSerial(Hour(Now), Minute(Now), Second(Now) + TDuration), "hh:mm:ss")            TDuration = TDuration - 1      End If    LoopEnd Sub
我做了数十个ppt交互实例，但那都是用控件的，绘图工具中的文本框也能这么用，开了眼界。
有个问题能解答一下吗？
("Date").("Duration").，这是怎么命名的？不像控件里的属性那样可以修改啊。 我添加一个文本框，录制一个宏，里面有这么一句：ActiveWindow.Selection.SlideRange.Shapes("Text Box 2").Select，("Text Box 2").这种名字也可以改？怎么改？
页: [1] 2 3 4 5 6
查看完整版本: [分享]倒时计时器