excel - 将excel单元格数据复制到ppt文本框

Question

我是宏的新手。我有一个在 A 列中有名称的 excel 表。我有一个包含许多幻灯片的 ppt。我需要一个 excel 中的宏来获取这些名称，在每张幻灯片中创建文本框并一一粘贴。就像，“A1”值应该转到幻灯片 1，“A2”值应该转到幻灯片 2...

任何人都可以在这方面提供帮助。

谢谢

Answer 1

如需帮助从 PPT 中自动化 Excel 或反之亦然，请访问我的常见问题解答网站http://www.pptfaq.com并搜索主页以查找对 Naresh 的任何引用（那是 Naresh Nichani，他编写并允许我包括一系列描述如何从 Excel 或 Access 中提取数据的文章）。研究他的文章中提供的代码，了解如何从 Excel 中提取数据。

然后从一张幻灯片演示开始，第一张幻灯片上只有一个文本框。如果您需要比这更复杂的东西，请询问。

Sub MakeBradburySlides() ' 您实际上是从 Excel 工作表中填充数组 ' 但出于演示目的： Dim aData(1 To 5) As String aData(1) = "Something" aData(2) = "Wicked" aData(3 ) = "这个" aData(4) = "路" aData(5) = "来了"

Dim x As Long
Dim oSl As Slide

With ActivePresentation
    For x = 1 To UBound(aData)
        Set oSl = .Slides(.Slides.Count).Duplicate(1)
        oSl.Shapes(1).TextFrame.TextRange.Text = aData(x)
    Next

    ' that leaves us with a blank slide at the beginning, so
    .Slides(1).Delete
End With

结束子

如果您更喜欢现成的解决方案，我会出售一个 PPT 插件，它可以完成所有这些以及更多功能。在http://www.pptools.com/merge/上有一个免费的、功能齐全的演示