ynlply 发表于 2018-12-25 04:06:32

ppt如何显示系统时间

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

请高手帮忙啊

zsz0086 发表于 2018-12-25 06:43:21

请高手帮忙啊

jerryli 发表于 2018-12-25 06:57:32

请高手帮忙啊

shipstar 发表于 2018-12-25 07:00:32

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 发表于 2018-12-25 07:01:35

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

y55555 发表于 2018-12-25 07:02:50

谢谢zjgzfs，不错，有用

hopecape 发表于 2018-12-25 07:40:56

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

china2008 发表于 2018-12-25 07:48:57

请高手帮忙啊

fdking 发表于 2018-12-25 08:03:00

请高手帮忙啊
页: [1]
查看完整版本: ppt如何显示系统时间