ppt如何显示系统时间

fnjpn · 发表于 2018-4-28 14:58

在论坛上看到一段代码，但显示的时间不在顶层，有时在图片下方，能否请高手修改一下，让时间显示在顶层，位置在右下角。谢谢Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
Do While Time < #11:59:00 PM#
Sleep 1000
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
DoEvents
Loop
End Sub

fnjpn · 发表于 2018-4-28 22:16

请高手帮忙啊

fnjpn · 发表于 2018-4-28 23:13

请高手帮忙啊

fnjpn · 发表于 2018-5-1 18:39

请高手帮忙啊

fnjpn · 发表于 2018-5-4 07:06

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
Do While Time < #11:59:00 PM#
Sleep 1000
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
DoEvents
Loop
End Sub

zjgzfs · 发表于 2018-5-6 11:35

本帖最后由 zjgzfs 于 2018-5-6 16:47 编辑

很简单啊。。。
进入母板，将Footer占位符，置于顶层就OK了！

fnjpn · 发表于 2018-5-6 14:53

谢谢zjgzfs，不错，有用

fnjpn · 发表于 2018-5-13 17:35

@zjgzfs，好象还没用，母版中的东西在正常放映时，都在底层

fnjpn · 发表于 2018-6-2 11:38

请高手帮忙啊

fnjpn · 发表于 2018-8-2 06:51

请高手帮忙啊

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