[分享]倒时计时器

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