ppt中的开发问题，想每一页添加文本框和文本框的内容？
Sub a()
With ActivePresentation.Slides(1)
With .Shapes.AddTextbox(msoTextOrientationHorizontal, 285, 220, 550, 100)
.TextFrame.TextRange.Font.Color = vbBlack
.TextFrame.TextRange.Font.Size = 54
.TextFrame.TextRange.Font.Name = "Times New Roman"
.TextFrame.TextRange.Font.Bold = True '加粗体
.TextFrame.TextRange.Text = "2021年08月04日"
End With
End With
End Sub
问题是：想增加一个循环，在每一页的ppt里增加文本框，文本框的内容是时间，比如第一页ppt是2021年08月04日，第二页ppt是2021年08月03日...........一直到最后一页的ppt是2017年05月01日。没学过vba，查了半天资料没看懂，请大神帮助，不胜感激！！
你是想给现有的ppt每一页增加一个时间文本框，还是新做一个ppt，里面的每一页包含一个时间文本框。如果是后者，新建的ppt，里面包含这个日期文本框的话，我给你提供一种方法，需要excel-word-ppt的结合。
第一步：打开excel，在空白单元格输入2021年08月04日
第二步：在左上角名称框中 输入A1：A1557，按回车，此时会发现A1：A1557的单元格都被选中了
第三步：按选项卡中的填充-序列，步长值填写 -1，点击确定
第四步：此时会发现，所有选中的单元格，自动填充了2021年08月03日到2017年05月01日的日期
第五步:复制这些日期，打开word，选择性粘贴，选择只粘贴文本，点击后会发现所有日期都以文字的形式粘贴到了word中
第六步：全选所有文字（快捷键ctrl+a），单击选项卡上面的标题1，你会发现所有文字变成了这个样子
第七步：另存为，保存类型选择rtf文件
第八步：打开ppt，点击插入-新建幻灯片-幻灯片（从大纲）
第九步：选择刚才保存的rtf文件，点击插入，如果遇到提示大纲过长，则依据你电脑一次可插入的页面数量，把rtf文件分成多个文件，如果一次插入完成，则不用。
我们可以看到，插入后，是这个样子的
第十步：我们要处理一下这个页面，文本的位置，大小，颜色等，现在点击视图-幻灯片母版
第十一步：在左边的缩略图中，我们点击复制版式，我们可以看到左边的红框内是我们复制的版式，右边的红框内是我们那个日期的文本框
第十二步：删除其他的元素，保留这个文本框，同时设置大小，颜色，字体等内容，比如我设置了微软雅黑，加粗，20号字，文字居中
第十三步:点击幻灯片母版-关闭母版视图
第十四步：回到普通视图后，我们在左边的缩略图中，先全选（ctrl+a），然后点击鼠标右键，选择刚才我们设置的版式
第十五步：我们会发现所有页面的文本框，都变成了统一的大小颜色等，当然你也可以放到你需要的其他任意位置。
这样，你就解决了你的提问
当用户利用此方法插入文本框后，在文本框中输入文字时，文字会无限地向右侧延伸，且文字不能实现自动换行。这是大家用得最多的一种方法。单击“插入”菜单，选择工具栏中的“文本框”按钮。
请点击输入图片描述
把光标移动到幻灯片需要插入文本框的地方，单击一下鼠标。
请点击输入图片描述
启动输入法输入文字，文字会一直向右侧延伸，不会自动换行。
请点击输入图片描述
如果用户需要文字换行，可以按回车键换行。这是插入文本框的第一种方法。
请点击输入图片描述