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

Question

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

我迄今为止的想法：

• 使用文字字段。据我所知，PowerPoint并没有像动态设置的文本字段那样。
• 使用页脚 - 这是有效的，我可以修改主页以获得我想要的外观，但我真的想从第一页获取文本的值，以便自动应用编辑并保存设置页脚的初始步骤。
• 使用VBA - 我愿意尝试一下，但我从来没有使用VBA，学习曲线似乎很陡，所以很高兴知道这个想法在VBA中是否可行。< / LI>

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

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

Answer 1

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

使用带有一些临时文本的文本框创建演示文稿。将以下代码放在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中运行宏。幻灯片中的文字将自动更新。