[笔记] PPT幻灯片也RIA——PPT实现倒计时功能
来源:互联网 发布:2005年网络歌曲大全 编辑:程序博客网 时间:2024/05/11 16:55
PPT幻灯片用的人应该不少吧……
前些日子朋友做了个幻灯片,说想在演讲时和台下的人互动——小问答,需要计时……
怎么办呢?于是想起了VBA……
在 “工具”/“自定义” 里,找到 “工具拦” 选项卡,找到“控件和工具箱”,将前面打钩。
在一张幻灯片上拖个 按钮 和 文本框。
双击 按钮,打开代码窗口
输入:
Private Sub CommandButton1_Click() win_hwnd = GetActiveWindow() TextBox1.Text = "10" SetTimer win_hwnd, 101, 1000, AddressOf timerEnd SubPrivate Sub TextBox1_Change() If TextBox1.Text <= 0 Then KillTimer win_hwnd, 101 MsgBox "Time Up!", vbInformation, "T_T" End IfEnd Sub
再在里面添加一个模块,输入:
Public Declare Function GetActiveWindow Lib "user32" () As LongPublic Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long) As LongPublic win_hwnd As LongPublic Sub timer() Slide1.TextBox1.Text = Val(Slide1.TextBox1.Text) - 1End Sub
关闭代码窗口
开始放映幻灯片,点 按钮,好了开始计时了
用这个例子小赞下VBA
其实里面还能创建窗体……
恩,PPT也玩RIA,-_-/////
J.Y. Liu
2010.01.18
- [笔记] PPT幻灯片也RIA——PPT实现倒计时功能
- PPT实现倒计时功能(VBA实现)
- ppt幻灯片使用技巧
- PPt动画教程:新建幻灯片
- PPT也能实现列表播放
- 怎么实现将ppt幻灯片转换为PDF格式
- 如何实现PDF转换为PPT幻灯片格式
- PowerPoint 幻灯片 PPT 进度条 制作
- PPT幻灯片高级使用技巧
- 网页中播放PPT 幻灯片
- PPT幻灯片演示模式设置
- PPT如何制作标题幻灯片
- PPT自定义专用幻灯片版式
- PPT动画教程:修改幻灯片母板
- 使用Office2003 VBA制作有倒计时功能的PPT
- 设置打印机属性打印课件的方法——一页显示9张PPT幻灯片
- PPT作图也精彩
- PPT
- 文件空洞引发的思考:空洞与cp
- linux下查看java路径
- 五险一金的使用方法
- linux下安装jdk并配置路径
- 伤
- [笔记] PPT幻灯片也RIA——PPT实现倒计时功能
- 技术?新思想?
- 实践出真知
- C++学习(七)头文件和源文件的关系
- UNIX网络编程 第2卷 进程间通信 代码安装 (转)
- Java 标准日志工具 Log4j 的使用(附源代码)
- S60实现带参数启动进程
- 网站导航设计趋势案例集合
- 《APUE》和《UNP》文件的编译和使用(转载)