怎样在ppt中插入一个VB中的timer控件？？

PPT在全屏显示的播放状态下是没有时间显示的，使我们在上课与讲座对时间的控制非常不便（看表或看手机的时间都会影响到讲座的气氛和听众的情绪）。那么在PPT中可以使用时间（时钟）吗？经过试验，可以通过插入Flash时钟或ActiveX控件方式现实。其中插入Flash时钟与在PPT中插入普通的Flash文件一样，网上有很多的介绍，这里仅述以VB6.0为工具以ActiveX控件方式建立时钟，并插入到PPT中。

这里以VB6.0为例说明

1、 启动动VB，在新建工程对话框中选用“ActiveX控件”选项。

2、 VB自动建一个用户控件设计器（UserControl）窗口，并命名为“UserControl”。

3、 单击工具箱的Label控件（用它显示时间），

4、 双击工具箱中的“Timer”控件。

5、 控件属性调整：按PPT文件的背景色在调好窗体及Label的背景色。在Timer1控件中，将Enabled设为True，将Interval设为1000（单位为ms，）以每秒触发一次。

6、 代码：

Private Sub Timer1_Timer()

Label1.Caption = Format(Now, "hh:mm:ss AM/PM") 取得系统时间并设置时间的格式，AM.PM分别上下午

End Sub

Private Sub UserControl_Initialize()

Label1.Caption = "" Label1内容初始化为空白

End Sub

7、 在“工程”菜单中，选择“工程1属性”，在d出的对话框中

8、 工程类型中写入“ActiveX”控件，以编译成”.OCX”为后缀名的ActiveX控件

9、 工程名任定(如取名为timer)

10、 在文件菜单中，单击“生成工程1.ocx”项，生成ActiveX控件，将其存于”Windows\system”或“winnt\system32”文件夹中。

11、 在PPT中选控件插入自己建好的ActiveX控件，如Timer，在PPT的母版中画出一个合适大小的图标，之后将它放在页脚等地方。

保存即可。

以上在Windows xp VB6.0 及Powerpoint2000中调试通过，如第二次打开文件时出现宏问题，请启用宏，如选打包则要把该控件也要插入所用机子的对应的文件夹中。

如何在ppt中插入时钟?你首先要下载一个时钟，然后按以下步骤 *** 作 视图菜单工具栏 控件工具箱 点击“其他控件”按钮，在出现的窗口中选择“shock wave flash object” 在母版中 划一个矩形区域 那个矩形区域的快捷菜单 属性 在出现的属性窗口 的movie属性 里输入.swf路径和文件名

别人发的，转的给你！

1、打开需添加倒计时动画的幻灯片。

2、单击“绘图”工具栏里的“椭圆”按钮，按下键绘制一个圆形后，按下键拖动鼠标，复制出一个圆形，并将其填充为绿色，无线条颜色，如图2。

3、在绿色圆形上单击鼠标右键，在d出菜单里单击“自定义动画”命令，依次单击“自定义动画”窗格里的“添加效果/退出/轮子”，如图3。

4、双击右侧窗格里的动画选项，在d出的“轮子”对话框里，将“辐射状”选项设为“1轮辐图案”；单击顶部的“计时”标签，假设倒计时总时间为3分钟（180秒），在“速度”选项右侧输入“180”（图5）；单击“触发器”按钮，选中“单击下列对象时启动效果”单选项后，单击相应的对象（图6）。

5、关闭“轮子”对话框后，将绿色圆形置于原来的圆形上方。

按下键播放动画，单击“计时”按钮即可启动倒计时动画。

---