找回密码
 立即注册
搜索

用VBA在PPT中引用系统实时时间

0
回复
706
查看
[复制链接]

5

主题

9

帖子

19

幻币

一流武者

Rank: 3Rank: 3

积分
237
2018-12-19 00:26:17 显示全部楼层 |阅读模式
我需要用VBA在PPT中引用系统实时时间。我是新手,不会操作,恳求大神们的帮助。谢谢!
我的代码:
Sub start()
m = True
Do While m
DoEvents
ActiveWindow.Selection.SlideRange.Shapes("TextBox1").TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")))
Loop
End Sub

但是会提示错误,如图:
232831a1qb1bfhzqb7fk1s.png


希望大神帮助!
Slide1.cls.zip (424 Bytes, 下载次数: 80)
PPT学习论坛
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册