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),然后点击鼠标右键,选择刚才我们设置的版式
第十五步:我们会发现所有页面的文本框,都变成了统一的大小颜色等,当然你也可以放到你需要的其他任意位置。
这样,你就解决了你的提问