怎么在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...

百度你找VBA ,前段时间 有针对PPT 的VBA应用源码.

外部调用有提到过.

但是我对那东西不是很看好,呵呵.

不常作PPT。期待答案，长见识。