如何创建许多包含幻灯片的幻灯片演示文稿，其中包含 Excel 表格中的变量？

Question

我正在尝试使用 Excel 表格中的值创建 PowerPoint 演示文稿。

A2、A3、A4 等都将包含一个名称。每个 pptx 文件中的幻灯片将是一个包含三个段落的测试，并且在开头这些单元格中的名称以这种方式寻址：

亲爱的'BA2'，

[第 1 段]

[第 2 段]

您忠实的，
...

其他单元格也是如此。

Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dm ppSlide As PowerPoint.Slide

Set ppApp = New PowerPoint.Application

ppApp.Visible = True
ppApp.Activate

Set ppPres = ppApp.Presentations.Add 

Set ppSlide = ppPres.Slides.Add(1, ppLayoutBlank)

Set ppApp = New PowerPoint.Application

ppApp.Visible = True
ppApp.Activate

set ppSlide = ppPres.Slides.Add(2,pp LayoutBlank(
ppSlide.Select

Range("A1").CurrentRegion.Copy
ppSlide.Shapes.Paste

此代码会将整个表格复制并粘贴到一张幻灯片中。与我想要的完全不同，但我需要知道的是如何使用 for 循环或类似的东西将这些单元格逐个单元格粘贴到单独的工作表中。

Answer 1

转到母版幻灯片视图并根据需要制作模板；喜欢特定的文本框和东西，然后从excel每次制作该模板的新幻灯片，并从单元格中的变量填充这些框。如果您只是学习编程，那比尝试通过代码添加文本框和所有内容要好。 for循环上的代码取决于您的演示幻灯片结构，如果您可以指定数据和格式，那就清楚了。 将此代码放入powerpoint VBA中，它可以让您访问excel中的数据，打开带有数据的excel表并在您将适当的内容放入循环后运行它。

Public Sub test()
Dim excelSht As Worksheet
Dim excelApp As Excel.Application
Set excelApp = GetObject(, "excel.application")
Set excelSht = excelApp.ActiveSheet
Dim path As String
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    path = .SelectedItems(1)
End With
'Set rng = excelApp.Selection ' use this if you want to select the data in advance
Set rng = excelSht.Range("A2:A140") ' use this if your data range is fixed
For Each cel In rng
    For Each shp In Application.Presentations(1).Slides(1).Shapes
        If shp.Name Like "Title 1" Then shp.TextFrame.TextRange.Text = "Dear, " & cel.Value ' this one choose the name of the shape of which one you want to change the text.
    Next
    Application.Presentations(1).SaveAs (path & "\" & cel.Value & ".pptx")
Next
End Sub