一、怎么在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...
二、怎么在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 * 100 + 1)
End Sub
这句代码可以生成一个1到100之间的随机整数，并把它输出到label1.
还要注意一点，这里编写的VB程序实际上就是“宏”。很多人把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑。所以为了安全，很多人都把宏禁用了。但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是ppt中的工具>选项菜单，“安全性”选项卡，“宏安全性”按钮，在弹出的“安全性”窗口中就可以设置宏的安全级别。
————
我都写了这么多了，觉得好就给分吧 ^_^
