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

我不熟悉宏。 我有一张excel表格，表格的名字在A列。我有一张ppt，里面有很多幻灯片。我需要excel中的宏来获取这些名称，在每张幻灯片中创建文本框，然后逐个粘贴到其中。例如，“A1”值应转到幻灯片1，“A2”值应转到幻灯片2

有人能帮忙吗

---

感谢

为从PPT中自动化Excel或从PPT中自动化Excel提供帮助，请访问我的常见问题解答网站，并在主页上搜索对Naresh的任何引用（即Naresh Nichani，他撰写了一系列文章，介绍了如何从Excel或Access中提取数据）。学习他文章中提供的代码，学习如何从Excel中提取数据

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

亚基布里斯勒（） '您将实际从Excel工作表中填充数组 “但出于演示目的： 尺寸aData（1到5）作为字符串 aData（1）=“某物” aData（2）=“邪恶” aData（3）=“这” aData（4）=“方式” aData（5）=“来了”

端接头

如果您更喜欢现成的解决方案，我会销售一个PPT插件，它可以完成所有这些功能，而且还有更多功能。在

上有一个免费的、功能齐全的演示，可能与

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