使用 VBA 将数据从 Excel 导出到现有 PowerPoint 幻灯片

我正在编写一个小型 excel 插件来进行一些简单的数据分析，但不幸的是我不是 VBA 程序员；）

到目前为止我已经做了什么：

• 从巨大的 Excel 工作簿中获取数据并执行计算
• 将结果写入预先格式化的 Excel“骨架”文件

我接下来想要做什么：

• 将完全相同的数据写入也已经准备好的ppt滑动 直接从Excel VBA代码。

我认为可以在幻灯片内定义某种文本框，然后将值放入其中......只是还没有找到任何东西！

对此的任何帮助表示赞赏；）

这是 excel powerpoint 2007，但我想尽可能使其版本独立。

TIA

这是我找到的一些代码Mahipal Padigela 的 VBA 网站 http://mahipalreddy.com/vba.htm

（它也被引用于堆栈溢出 https://stackoverflow.com/questions/3424712/excel-vba-excel-macro-to-create-table-in-a-powerpoint/3424969#3424969)

''# Code by Mahipal Padigela
''# Open Microsoft Powerpoint,Choose/Insert a Table type Slide(No.4), then double click to add a...
''# ...Table(3 Cols & 2 Rows) then rename the Table to "Table1", Save and Close the Presentation
''# Open Microsoft Excel, add some test data to Sheet1(This example assumes that you have some data in...
''# ... Rows 1,2 and Columns 1,2,3)
''# Open VBA editor(Alt+F11),Insert a Module and Paste the following code in to the code window
''# Reference 'Microsoft Powerpoint Object Library' (VBA IDE-->tools-->references)
''# Change "strPresPath" with full path of the Powerpoint Presentation created earlier.
''# Change "strNewPresPath" to where you want to save the new Presnetation to be created later
''# Close VB Editor and run this Macro from Excel window(Alt+F8) 

Dim oPPTApp As PowerPoint.Application
Dim oPPTShape As PowerPoint.Shape
Dim oPPTFile As PowerPoint.Presentation
Dim SlideNum As Integer
Sub PPTableMacro()
    Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
    strPresPath = "H:\PowerPoint\Presentation1.ppt"
    strNewPresPath = "H:\PowerPoint\new1.ppt"

    Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
    Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)
    SlideNum = 1
    oPPTFile.Slides(SlideNum).Select
    Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table1")

    Sheets("Sheet1").Activate
    with oPPTShape.Table
        .Cell(1, 1).Shape.TextFrame.TextRange.Text = Cells(1, 1).Text
        .Cell(1, 2).Shape.TextFrame.TextRange.Text = Cells(1, 2).Text
        .Cell(1, 3).Shape.TextFrame.TextRange.Text = Cells(1, 3).Text
        .Cell(2, 1).Shape.TextFrame.TextRange.Text = Cells(2, 1).Text
        .Cell(2, 2).Shape.TextFrame.TextRange.Text = Cells(2, 2).Text
        .Cell(2, 3).Shape.TextFrame.TextRange.Text = Cells(2, 3).Text
    end with 

    oPPTFile.SaveAs strNewPresPath
    oPPTFile.Close
    oPPTApp.Quit

    Set oPPTShape = Nothing
    Set oPPTFile = Nothing
    Set oPPTApp = Nothing

    MsgBox "Presentation Created", vbOKOnly + vbInformation
End Sub

这是一些额外的帮助使用 VBA 自动化 Powerpoint http://chandoo.org/wp/2011/08/03/create-powerpoint-presentations-using-excel-vba/ and http://www.mahipalreddy.com/vba/ppvba.htm http://www.mahipalreddy.com/vba/ppvba.htm

要获取各个幻灯片的名称，请尝试以下操作：

Dim oSlide As Slide

For Each oSlide In ActiveWindow.Presentation.Slides
    Debug.Print oSlide.Name
Next
End Sub

那应该power为您指明正确的方向！ （这么滑稽）

Philip