当前位置：首页 → 问答吧 → [分享]倒时计时器

[分享]倒时计时器

时间：2005-06-23

来源：互联网

我制作了一个倒时计时器供大家参考。 f8EziSeK.rar (13.05 KB)

作者: ngcg 发布时间: 2005-06-23

谢谢

作者: cxffxc 发布时间: 2005-06-23

谢谢

作者: v2_99 发布时间: 2005-06-27

怎么用？

作者: 菲雪发布时间: 2005-06-29

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

作者: shz1221 发布时间: 2005-06-30

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

作者: plxmm 发布时间: 2005-06-30

好，我下来看看

作者: 醉眼中的朦胧发布时间: 2005-07-12

是高版本做的?除了能看到文字和几个框框外,我什么效果都没有看到哟[em04]

作者: hpw 发布时间: 2005-07-12

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

作者: 醉眼中的朦胧发布时间: 2005-07-12

倒计时，我找了很久了。谢谢。

Sub Timer()Dim TDuration As LongDim xtime As Datextime = NowConst THour = 1Const TMin = 30TDuration = THour * 60 * 60 + TMin * 60ActivePresentation.Slides(1).Shapes("Date").TextFrame.TextRange.Text = FormatDateTime(Date, 1)If THour > 0 ThenActivePresentation.Slides(1).Shapes("Duration").TextFrame.TextRange.Text = Trim(Str(THour)) + " h " + Trim(Str(TMin)) + " min"ElseActivePresentation.Slides(1).Shapes("Duration").TextFrame.TextRange.Text = Str(TMin) + " min"End IfDo While (TDuration > -1)DoEventsActivePresentation.Slides(1).Shapes("Time").TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")))If Format(Now, "ss") <> Format(xtime, "ss") Thenxtime = NowActivePresentation.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 - 1End IfLoopEnd Sub

我做了数十个ppt交互实例，但那都是用控件的，绘图工具中的文本框也能这么用，开了眼界。

有个问题能解答一下吗？

("Date").("Duration").，这是怎么命名的？不像控件里的属性那样可以修改啊。我添加一个文本框，录制一个宏，里面有这么一句：ActiveWindow.Selection.SlideRange.Shapes("Text Box 2").Select，("Text Box 2").这种名字也可以改？怎么改？

作者: 多媒体发布时间: 2005-07-16

用以下代码创建一个宏。利用此宏为Shape取名为Date和Duration。Sub NameShape()On Error GoTo AbortNameShapeDim Name$If ActiveWindow.Selection.ShapeRange.Count = 1 ThenName$ = ActiveWindow.Selection.ShapeRange(1).NameName$ = InputBox$("Give this shape a name", "Shape Name", Name$)If Name$ <> "" ThenActiveWindow.Selection.ShapeRange(1).Name = Name$End IfElseMsgBox "Only 1 Shape is allowed to be selected"Exit SubEnd IfExit SubAbortNameShape:MsgBox "No Shapes Selected"End Sub

作者: ngcg 发布时间: 2005-07-18

好东西就应该珍藏!

作者: yy_345 发布时间: 2005-07-20

可否将宏在母板中制作呢？这样每一张上都会有时间！

作者: fensal 发布时间: 2005-07-23

能在母板中制作就好了

作者: iceboy 发布时间: 2005-07-26