简单三步,让你演示PPT时带上计时器功能!
利用VBA宏,复制或者导入文末的宏代码,保存PPT为 .potm(开启宏的模板) 即可(宏代码是PPT模板的一部分,不是插件)。可以把你平常常用的模板计入计时器功能,就不用加载插件了。
操作步骤:
1. 第一步:
打开PPT 的 【开发工具】菜单,如下图,也可以通过 【文件】【选项】进入设置页面,然后点击【开发工具】下的 "Visual basic"编辑器:
打开【开发工具】菜单,打开VBA编辑器
第二步:
在VBA编辑器的【插入】菜单(图中步骤),插入一个 "模块"(步骤B), 复制代码到编辑区域,保存即可。
插入【模块】,复制或者导入代码
第三步:设置宏安全性
要启用宏代码,需要设置宏安全性,如下图所示,通过【开发工具】-->[宏安全性]进入,或者第一步设置页面的【信任中心】进入。
设置宏安全性,启用宏
播放幻灯片时的计时效果:
(时间计时 显示在PPT页面的右下角,每秒钟更新)
计时显示效果
宏代码:
(如果觉得有用,可以找我要.txt或.bas宏代码)
#If VBA7 Or Win64 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
'
Public index As Integer
Public count As Integer
Public temp As Shape
Public ID As Integer
'
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
count = count + 1
temp.TextFrame.TextRange.Text = TimeSerial(count \ 3600, (count \ 60) Mod 60, count Mod 60) '转为时间格式
End Sub
'
Public Sub OnSlideShowPageChange()
If ID <= 0 Then
ID = SetTimer(win_hwnd, 1000, 1000, AddressOf TimerProc)
Set temp = ActivePresentation.Designs(1).SlideMaster.Shapes.AddTextbox(msoTextOrientationHorizontal, ActivePresentation.PageSetup.SlideWidth - 70, ActivePresentation.PageSetup.SlideHeight - 20, 75, 25) '
'temp.Name = "Time"
temp.ZOrder (msoBringToFront)
With temp.TextFrame.TextRange
.Font.Name = "Arial" '文本框字体
.Font.Size = 12 '文本框字体大小
.Text = "0:00:00" '文本框文字
End With
Else
temp.TextFrame.TextRange.Text = ""
End If
End Sub
'
Public Sub OnSlideShowTerminate()
tt = KillTimer(0, ID)
temp.Delete
count = 0
ID = 0
End Sub
声明:我要去上班所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流,版权归原作者所有,原文出处。若您的权利被侵害,请联系删除。
本文标题:(ppt无法加载加载宏)(ppt无法加载宏)
本文链接:https://www.51qsb.cn/article/4463.html