[分享]倒时计时器

ngcg · 发表于 2005-7-18 14:00

用以下代码创建一个宏。利用此宏为Shape取名为Date和Duration。 Sub NameShape() 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

yy_345 · 发表于 2005-7-20 10:43

好东西就应该珍藏!

fensal · 发表于 2005-7-23 23:51

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

iceboy · 发表于 2005-7-26 20:37

能在母板中制作就好了

多媒体 · 发表于 2005-7-27 14:22

以下是引用ngcg在2005-7-18 14:00:17的发言：
用以下代码创建一个宏。利用此宏为Shape取名为Date和Duration。 ...........................

这方面的资料真的太难找了。高手啊，不知你是看过哪些资料及参考书？能不能推荐推荐。

[此贴子已经被作者于2005-7-27 14:26:36编辑过]

powerpoint · 发表于 2005-7-27 16:35

不错啊，值得学习啊

风过有痕 · 发表于 2005-7-30 13:15

打开以后看不到什么东西啊

为什么?

pengzezhou · 发表于 2008-12-17 00:16

太好了

夏夜轻吻 · 发表于 2008-12-19 10:57

hen hao a

zsldzxx · 发表于 2008-12-19 17:54

太感谢了！正在download！

		自动登录	找回密码
密码			免费注册