PPT 如何用VBA 读取文本框控件的内容

你可以把代码写在焦点转换事件或者在执行按钮里检查。

这种写法一般是针对窗体百控件的。如果是窗体控件，那么应该写为： CONTROLS(&度quot;TEXTBOX" &N).text="你想输入的内容"如果是基本界面上的active控件，那么应该写为： Shapes("TEXTBOX" &N).OLEFormat.object.text="你想输入的内容"注意PPT的控件名是区分大小知写的 也就是如果名称是TextBox1,是不能写Shapes("TEXTBOX1"）或者Shapes("textbox1"）的希望能帮助你，如果还道有问题，可以通过我的头像找到我。

下面代码是把第二张幻灯片的标题复设置为第一张幻灯片的文件框的内容ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Text下面代码是显示第制一张幻灯片中所有文本框的内容zd，你看着哪个对你有用，用哪个吧Private Sub CommandButton1_Click() Dim i As Integer With ActivePresentation.Slides(1) For i = 1 To .Shapes.Count If .Shapes(i).Type = msoTextBox Then MsgBox .Shapes(i).TextFrame.TextRange.Text End If Next End WithEnd Sub 追问 谢了，其实我就是不太知道这些东西怎样引用 那个对于引用哪个单元格，具体的怎样说明呢？谢谢 本回答由提问者推荐

int n = 0; for (vector<float>::iterator iter = descriptor.begin();iter !度= descriptor.end();iter++) { trainDataHog.at<float>(i,n) = *iter; n++; } trainLabel.at<float>(i,0) = vecTrainLabel[i]; 本回答由网友推荐

ppt自动创建二个文本框，第二个文本框文字行间距可以调整 更多追问追答 追问 不知道是没明白我的意思还是我没明白你的意思。 追答 你提问的要求是用vba把开发工具设计的第二个文本框文字的行间距可以修改，我是在空白的pp上直接自动创建了二个文本框，并把第二个文本框文字的行间距以1倍、2倍、3倍、4倍等不同的间距演绎出来。 另 test即vba过程名称追答也发一遍吧 追问 把test代码给我参考一下行不？谢谢了 追答 你一定要ActiveX文本框，就再做一个吧 本回答被提问者和网友采纳

代码及知注释如下：Private Sub CommandButton1_Click()For i = 1 To 3'循环道 arr(i)=UserForm1("TB" & i).Text '将文本框内容赋予数据arr，假版定文本框所属的窗体名为权userform1Next iEnd Sub 本回答由电脑网络分类达人 刘娜推荐

建议使用控zd件数组。举个例子:判断这些文本框中的数字是否大于10，若是的话则将这些文本框中的内容改成红色的字体将TB1、TB2、TB3......创建为一个名为Text1的控件数组For i=0 to ListCount-1 If Val(Text1(i).Text)>10 Then Text1(i).ForeColor=VbRedNext i 本回答被网友采纳

涉及控件引用copy，可以使用For来循环，因为控件个数百已知。下面度举例让3个文本框不可见：知 For i = 1 To 3 Me("TB" & i).Visible = False Next i其它操作可以此类推。 俺说的是Access VBA.Word里不会道,哈哈~

文本框控件的caption属性为其调用的对象名称。你可以采取命名不同的caption属性来分别调用，如果文本框比较多的话，可以采取文本框数组的形式来调用，就很方便了。。。

For i = 1 To 2 Me.Controls("TB" & i)= "你好"Next