[分享]倒时计时器

chuhaiou

Sub NameShape()

下面是添加命令控件按钮呀！哪4个方框（是什么框？控件？文本框？自选图形？）是如何命名为Date或Duration的？这几种时间是如何对应到这几个框中的？
On Error GoTo AbortNameShape
Dim Name$
If ActiveWindow.Selection.ShapeRange.Count = 1 Then
Name$ = ActiveWindow.Selection.ShapeRange(1).Name
Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)
If Name$ <> "" Then
ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Else: MsgBox "Only 1 Shape is allowed to be selected"
Exit Sub
End If
Exit Sub
AbortNameShape: MsgBox "No Shapes Selected"
End Sub
不知能否在一个框内每隔一定的时间变换不同的时间显示哟
下面我把它改在母板中显示了！（见第一个附件）

[ 本帖最后由 chuhaiou 于 2010-9-15 21:14 编辑 ]

枫桥夜泊lwb

怎么不会动的呀

chuhaiou

宏的安全性设为中，并启用宏！放映状态下点击Start就会动了！

[ 本帖最后由 chuhaiou 于 2010-9-16 08:21 编辑 ]

vanastry

这个不错，很有用，收藏了，谢谢楼主

memory05

需要你的好东西

weiwei8216

不错的东东，学习了

AL0424

看不懂，惭愧啊

zszxdls

谢谢！！！！！！！！！！！！！

bbxx2316

感谢分享，我很喜欢。

www0180

高人啊，谢谢下来看看