ppt如何显示系统时间

ynlply

在论坛上看到一段代码，但显示的时间不在顶层，有时在图片下方，能否请高手修改一下，让时间显示在顶层，位置在右下角。谢谢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

red-stone

请高手帮忙啊

zsz0086

请高手帮忙啊

jerryli

请高手帮忙啊

shipstar

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

hassal

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

y55555

谢谢zjgzfs，不错，有用

hopecape

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

china2008

请高手帮忙啊

fdking

请高手帮忙啊