PowerPoint幻灯片怎样添加vb控件

1.怎样在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 SubPrivate Sub UserControl_Initialize()Label1.Caption = "" Label1内容初始化为空白End Sub7、在“工程”菜单中，选择“工程1属性”，在弹出的对话框中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路径和文件名别人发的，转的给你。

2.如何在PPT中加入VB程序

是不是加入vb控件？？ 如果是：首先在ppt上方或下方单击右键，选择visual basic，弹出vb工具栏，你会看到里面有一个控件工具箱，单击展开，有一些控件供你选择。

比如：选择一个“命令按钮”，再在ppt内容上单击一下，将会出现一个button，双击此button，进入vb编辑器，就可以在里面添加vb代码了.比如添加 MsgBox("Hello！") 保存之后返回ppt，然后放映幻灯片，当用鼠标点击那个button后，便会弹出一个对话框！ 当然还有就是宏了，方法也差不多！。

3.如何在PPT中加入VB程序

是不是加入vb控件？？如果是：首先在ppt上方或下方单击右键，选择visual basic，弹出vb工具栏，你会看到里面有一个控件工具箱，单击展开，有一些控件供你选择。

比如：选择一个“命令按钮”，再在ppt内容上单击一下，将会出现一个button，双击此button，进入vb编辑器，就可以在里面添加vb代码了.比如添加 MsgBox("Hello！")保存之后返回ppt，然后放映幻灯片，当用鼠标点击那个button后，便会弹出一个对话框！ 当然还有就是宏了，方法也差不多！。

4.怎样在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属性”，在弹出的对话框中

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路径和文件名

别人发的，转的给你！

5.怎么在ppt里插入vb程序以随机调用文本,并用一个控件来控制刷新

文本的我会，如图排列一下对象，名称图上有标

然后用VBA

因为急，所以用网上1现成的改动了一下，快停电了。..

这是VBA

Dim txtline

Private Sub CommandButton2_Click()

Dim TextLine1

If xhs.Text = "" Then

aa = MsgBox（"请输入与本Powerpoint文件在同一文件夹下文本文件名！"， vbDefaultButton4， "提示"）

ElseIf xhs.Text + ".txt" <> Dir(xhs.Text + ".txt") Then

aa = MsgBox（" 该文件不存在！请输入与本Powerpoint文件在同一文件夹下" + vbCrLf + "其他文本文件的文件名后再按“导入”。"， vbDefaultButton4， "提示"）

xhs.Text = ""

Else

Open xhs.Text + ".txt" For Input As #1

Do While Not EOF(1)

Line Input #1, TextLine1

h = h + TextLine1 + vbCrLf

Loop

txtline = Split(h, vbCrLf)

Length = UBound(txtline)

LineCount.Text = CStr(Length)

If LineCount.Text > 0 Then Go.Enabled = True

xms.Text = h + vbCrLf

End If

Close #1

End Sub

Private Sub CommandButton4_Click()

xms.Text = ""

End Sub

Private Sub Go_Click()

If CInt(TargetLine.Text) < CInt(LineCount.Text) Then

xms.Text = vbCrLf + "这是第" + TargetLine.Text + "行的内容" + vbCrLf + txtline(CInt(TargetLine.Text) - 1)

Else

aa = MsgBox（"行数超出文本最大行数"， vbDefaultButton4， "提示"）

End If

End Sub

说明下：CommandButton2 是那个导入的名称。..

这个很简单的，一看就明白，就是读出来，然后用split将其打开成数组，然后分数组读出来就OK。