do93ks92 发表于 2016-4-12 16:07:45

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 发表于 2016-4-12 16:08:02

怎么不会动的呀

user_lafju 发表于 2016-4-12 16:10:22

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

losing 发表于 2016-4-12 16:14:48

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

user_shlbzrdw 发表于 2016-4-12 16:15:13

需要你的好东西

user_yculd 发表于 2016-4-12 16:22:26

不错的东东，学习了

user_cgjyx 发表于 2016-4-12 16:24:39

看不懂，惭愧啊

user_mhwgd 发表于 2016-4-12 16:28:01

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

user_vivuz 发表于 2016-4-12 16:34:41

感谢分享，我很喜欢。

pewrdsafs 发表于 2016-4-12 16:36:04

高人啊，谢谢下来看看
页: 1 2 3 4 [5] 6
查看完整版本: [分享]倒时计时器