Question

我是宏观的新手。我有一张excel表，在A栏中有名字。我有一张带有许多幻灯片的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

End Sub

如果您更喜欢现成的解决方案，我会销售PPT插件，可以完成所有这些以及更多功能。在http://www.pptools.com/merge/

有一个免费的，功能齐全的演示

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

1 个答案: