将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 工作表中填充数组 ' 但出于演示目的： 将 aData(1 到 5) 调暗为字符串 aData(1) = "某事" aData(2) = "邪恶" 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/ 有一个免费的、功能齐全的演示版