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

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

然后用VBA

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

这是VBA

Dim txtline

Private Sub CommandButton2_Click()

Dim TextLine1

If xhsText = "" Then

aa = MsgBox("请输入与本Powerpoint文件在同一文件夹下文本文件名!", vbDefaultButton4, "提示")

ElseIf xhsText + "txt" <> Dir(xhsText + "txt") Then

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

xhsText = ""

Else

Open xhsText + "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)

LineCountText = CStr(Length)

If LineCountText > 0 Then GoEnabled = True

xmsText = h + vbCrLf

End If

Close #1

End Sub

Private Sub CommandButton4_Click()

xmsText = ""

End Sub

Private Sub Go_Click()

If CInt(TargetLineText) < CInt(LineCountText) Then

xmsText = vbCrLf + "这是第" + TargetLineText + "行的内容" + vbCrLf + txtline(CInt(TargetLineText) - 1)

Else

aa = MsgBox("行数超出文本最大行数", vbDefaultButton4, "提示")

End If

End Sub

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

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

选中文本框，然后鼠标右键，点击大小与位置，再点击文本框选项，改变文字版式里的文字方向。

1、打开我们的ppt软件，然后开启并进入到我们需要将文本框中的文字内容快速由横排转换成竖排的文档之中。

2、进入文档后，我们选中需要转换文字方向的文本框，选中后我们在软件顶部菜单栏选择并点击开始菜单。

3、打开开始菜单的下拉选项后，我们在其中找到段落选项组，然后在该选项组中继续找到文字方向选项。

4、点击文字方向选项菜单打开其下拉选项，在打开的下拉选项中选择并点击竖排选项。

5、点击竖排后，我们就可以在ppt中看到原本文字内容横向排列的文本框，此时就变成了文字内容竖向排列的文本框。

6、当文本框中的文字内容竖向排列后，我们可以适当调整文本框的大小，以使竖向排列的文字内容版式符合我们的实际需求。

在教学的过程中，很多老师都想遇到想呈现的顺序是按自己控制的，例如我们在讲解中国地图的时候，想让我们每个省份一个一个出来，便于我们在讲课的时候边播放边讲解。其实在我们ppt中也是可以制作这种效果，这就用到我们在ppt中不常用的功能—触发器。触发器相当于一个触发开关，通过设置符合它的运行条件，去控制ppt中的动作元素（包括音频和视频元素）和显示效果，在特定条件下开始运作，从而实现非线性交互。

方法与步骤

1现在自定义动画里做好每一个内容出现的自定义动画效果—>2然后在自定义动画中选择需要出现的内容，单击鼠标“右键”，选择“效果选项”—>3在d出的对话框中选择“计时”标签，单击“触发器”按钮—>4单击“单击下列对象时启动效果”选项，然后在下拉选择框中选择触发器对象，最后单击“确定”按钮，如下图所示。

假设你的表格结构如下

A B C

被抽项目 抽选序号 随机抽中

ase123 5 158ves

dfgt464

ds454

da356

hynh232

ahrt679

158ves

421gfg

kuy3545

412ghj

请在C2单元格输入公式：=INDEX(A:A,ROUND(RAND()(COUNTA(A:A)-1),0)+1)，

现在只需在B2单元格输入抽选序号，再回车C2单元格就会显示出被随机选中的项目，

其中A列的被抽项目数无限制。

刷新主要用于网页

之前也曾经在windows中很流行

因为早期版本的windows响应速度不像现在这样，比如说你从桌面上删除一个文档，由于 *** 作系统和硬件的响应问题，很有可能你还是可以看到这个文档的，这时候你按下F5后桌面就变成了删除后的状态

office里面是用不到刷新功能的

比如说word、Excel中F5是用于“定位”文档

ppt中F5用于以演示功能显示PPT

以上就是关于怎么在ppt里插入vb程序以随机调用文本，并用一个控件来控制刷新全部的内容，包括:怎么在ppt里插入vb程序以随机调用文本，并用一个控件来控制刷新、ppt关键字随机大小横竖、如何在ppt中实现随机选择的响应等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！