首页 文章

PowerPoint：在每张幻灯片上重复文字

提问于
浏览 次
0

我正在为每日课堂演示创建一个PowerPoint模板 . 在模板中，我希望在第一张幻灯片上突出显示一大块文本，并在底部以较小的尺寸重复在底部的后续幻灯片中 . 文本每天都会改变 .

到目前为止我的想法：

  • 使用文本字段 . 据我所知，PowerPoint没有像动态设置的文本字段那样的东西 .

  • 使用页脚 - 这是有效的，我可以修改主页以获得我想要的外观，但我真的想从第一页获取文本的值，以便自动应用编辑并保存设置页脚的第一步 .

  • 使用VBA - 我从来没有使用VBA，学习曲线看起来很陡，所以很高兴知道这个想法在VBA中是否可行 .

可以这样做吗？你会怎么做？

这是我希望能够做到的一个例子 . 理想情况下，该解决方案适用于Mac（2013）和Windows（2016）版本的PowerPoint .

Text repeating on slides

vba powerpoint

1 回答

  • 1

    您可以将演示文稿与excel文件相关联 . 在ppt中运行代码会拉出excel文件中的文本并立即更新 Headers .

    使用带有一些临时文本的文本框创建演示文稿 . 将以下代码放在ppt中 . 保存为pptm .

    Sub AddMotionPath()

    Dim Temp As String

Excel.Application.Workbooks.Open ("D:\Users\Desktop\Book1.xlsx") ' update the path of the excel file
Workbooks("Book1.xlsx").Activate 'activate the file

For p = 1 To 4
Temp = Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("B" & p + 1).Value ' Column B has the titles
 ActivePresentation.Slides(p).Shapes(1).TextFrame.TextRange.Text = Temp ' this updates the titles from excel to ppt slide
Next
Excel.Application.Workbooks("Book1.xlsx").Close False 'closes the excel file

End Sub

    如果这对您有用，请告诉我 . 您可以更新excel文件并在ppt中运行宏 . 幻灯片中的文本将自动更新 .

    回复于

相关问题