chris09 发表于 2016-4-12 14:03:24

用以下代码创建一个宏。利用此宏为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 SubAbortNameShape:    MsgBox "No Shapes Selected"End Sub

user_piyvv 发表于 2016-4-12 14:04:26

好东西就应该珍藏!

user_bkpio 发表于 2016-4-12 14:13:44

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

kjiuh871 发表于 2016-4-12 14:21:12

能在母板中制作就好了

user_rqebd 发表于 2016-4-12 14:21:33

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

cdz45380 发表于 2016-4-12 14:23:13

不错啊，值得学习啊

user_pyhptwxv 发表于 2016-4-12 14:29:43

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

user_ueirm 发表于 2016-4-12 14:38:25

太好了:hug:

对你动了心 发表于 2016-4-12 14:40:24

hen haoa

user_kqonf 发表于 2016-4-12 14:43:45

太感谢了！正在download！
页: 1 [2] 3 4 5 6
查看完整版本: [分享]倒时计时器