经验直达：
- 怎么在ppt里插入vb程序以随机调用文本
- 怎么在ppt里插入vb程序以随机生成数字
一、怎么在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 = hTextLine1vbCrLf
Loop
txtline = Split(h, vbCrLf)
Length = UBound(txtline)
LineCount.Text = CStr(Length)
If LineCount.Text > 0 Then Go.Enabled = True
xms.Text = hvbCrLf
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"行的内容"vbCrLftxtline(CInt(TargetLine.Text) - 1)
Else
aa = MsgBox("行数超出文本最大行数", vbDefaultButton4, "提示")
End If
End Sub
说明下：CommandButton2 是那个导入的名称.....
这个很简单的，一看就明白，就是读出来，然后用split将其打开成数组，然后分数组读出来就OK...
二、怎么在ppt里插入vb程序以随机生成数字
【怎么在ppt里插入vb程序以随机调用文本-怎么在ppt里插入vb程序以随机生成数字】还是挺简单的 。步骤如下 。
1)打开ppt 。
2)打开“控件工具箱”， 步骤：菜单视图>工具栏>控件工具箱 。
3)用控件工具箱画控件 。
4)在控件上右键，通过“属性”命令设置每一个控件的属性 。
5)在某一个控件上右击，选择“查看代码”，这时就出现了Visual Basic窗口 。
6)现在你可以像在VB里编写程序一样 ， 来编写每一个控件的代码 。
在这里，每一张幻灯片就是一个对象 ， 它的级别和窗体相当 。幻灯片上的控件是幻灯片对象的子控件 。
步骤就是这样 。下面我举一个例子 。
新建ppt.
在幻灯片1上画一个CommandButton,一个Label 。
将CommandButton1的Caption属性设置为"生成随机数",Label1的Caption属性设置为空白 。
在CommandButton1控件上右击，进入Visual Basic界面 ， 编写代码：
Private Sub CommandButton1_Click()
Slide1.Label1.Caption = Int(Rnd * 1001)
End Sub
这句代码可以生成一个1到100之间的随机整数，并把它输出到label1.
还要注意一点 ， 这里编写的VB程序实际上就是“宏” 。很多人把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑 。所以为了安全，很多人都把宏禁用了 。但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了 。所以我们还应该启用宏 ， 方法是ppt中的工具>选项菜单，“安全性”选项卡，“宏安全性”按钮，在弹出的“安全性”窗口中就可以设置宏的安全级别 。
————
我都写了这么多了，觉得好就给分吧 ^_^