从 Excel 自动创建 PowerPoint 幻灯片（3 种简单方法）

以下数据集包含销售代表的姓名和区域。我们将在 PowerPoint 幻灯片中显示 Excel 数据。

方法 1 – 使用 PowerPoint 中的插入命令自动创建幻灯片

步骤：

• 启动 PowerPoint。
• 选择插入标签。
• 点击文本并选择对象选项。

• 将弹出一个插入对话框。单击从文件创建。
• 单击浏览找到要添加到幻灯片中的 Excel 文档。

• 再次弹出插入对象对话框。选中链接框并单击确定。

方法 2 – 使用选择性粘贴从 Excel 生成幻灯片

步骤：

• 打开 Excel 保存的工作表以插入数据。

• 选择要复制的数据集。
• 单击复制或按Ctrl + C。
• 打开 PowerPoint 并单击要连接 Excel 数据的幻灯片。
• 单击粘贴或右键单击并选择选择性粘贴。

• 出现一个新对话框。选择粘贴链接。
• 选择作为 Microsoft Excel 工作表对象并点击确定。

• 这将返回幻灯片内的表格。

方法 3 – 通过 VBA 从 Excel 创建 PowerPoint 幻灯片

要使用 Excel VBA 代码，您必须添加 Microsoft PowerPoint 16.0 对象库。

步骤：

• 选择工作簿的活动工作表。

• 导航到开发人员，然后选择Visual Basic。
• 选择插入并单击模块。

• 将以下代码放入模块框中。根据需要更改代码中的单元格范围。

Sub powerPointFromExcel()
   
    Dim AppSofteko As PowerPoint.Application
    Dim PresentationSofteko As PowerPoint.Presentation
    Dim SlideSofteko As PowerPoint.Slide
   
    Set AppSofteko = New PowerPoint.Application
   
    AppSofteko.Visible = True
    AppSofteko.Activate
   
    Set PresentationSofteko = AppSofteko.Presentations.Add
    Set SlideSofteko = PresentationSofteko.Slides.Add(1, ppLayoutTitleOnly)
   
    SlideSofteko.Shapes(1).TextFrame.TextRange = "Use of Excel VBA"
    ActiveSheet.Range("A3:D11").Copy
    SlideSofteko.Shapes.Paste

End Sub

• 单击运行按钮或按F5。
• 这就是输出的位置。

修复：

• 将鼠标悬停在工具上。
• 单击参考。

• 参考 – VBAProject 窗口将打开。
• 检查Microsoft PowerPoint 16.0 对象库。
• 点击确定解决该错误。