[分享]倒时计时器

do93ks92

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$ <> &quot;&quot; Then
ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Else: MsgBox &quot;Only 1 Shape is allowed to be selected&quot;
Exit Sub
End If
Exit Sub
AbortNameShape: MsgBox &quot;No Shapes Selected&quot;
End Sub
不知能否在一个框内每隔一定的时间变换不同的时间显示哟
下面我把它改在母板中显示了！（见第一个附件）

ppkosk168

怎么不会动的呀

user_lafju

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

losing

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

user_shlbzrdw

需要你的好东西

user_yculd

不错的东东，学习了

user_cgjyx

看不懂，惭愧啊

user_mhwgd

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

user_vivuz

感谢分享，我很喜欢。

pewrdsafs

高人啊，谢谢下来看看