Question

我已经查看了大量已经发布的问题，但没有什么比我想要的更合适。我有一个excel列表，包含〜750个不同的标题/标题，我需要用它来创建PPT幻灯片。我只需要创建一个标题但其他空白的PPT幻灯片。我对编码非常陌生，大多数解决方案都比我需要的更复杂（即导入图表和图片）。任何有助于将菜鸟指向正确方向的帮助将不胜感激：）

Answer 1

从Excel保存为纯文本文件。您可能需要将其分解为几个步骤，因为PPT无法一次性处理超过一定数量的这些步骤。

然后启动PowerPoint并选择File |打开，文件类型：。选择你的文本文件，让PPT打开它。

冲洗并重复。

Answer 2

创建一个空白的ppt文件 - 在包含excel数据的单个列表的第一张幻灯片中，我假设您所需的标题在每一行中。命名表（Ive使用HeadersTable） - 您可以使用选择窗格在“主页”选项卡上执行此操作。

在ppt - Alt + F11中打开VBA编辑器，添加一个新模块并运行以下代码。

Sub createHeaders()

    Dim sl As Slide
    Dim tbl As Table
    Dim shp As Shape
    Dim i As Long

    Set sl = ActivePresentation.Slides(1)
    Set tbl = sl.Shapes("HeadersTable").Table

    For i = 1 To tbl.Rows.Count

        Set sl = ActivePresentation.Slides.Add(i + 1, ppLayoutTitleOnly)
        Set shp = sl.Shapes("Title 1")
        shp.TextFrame.TextRange.Text = tbl.Rows(i).Cells.Item(1).Shape.TextFrame.TextRange.Text

    Next i

End Sub

Excel列表到PowerPoint幻灯片标题

2 个答案: