在PPT中复制时如何添加数据库值

Question

正在尝试复制幻灯片 1 - 4，这会将我的数据库中的数据提取到形状 1 和形状 2

但我收到一个错误：对象 'Shapes' 的 'Item' 方法失败

Power point 新手 vba 编码。我真的不明白为什么会出现此错误。

如果我只复制幻灯片 1 而没有数组，它可以正常工作，但我需要在幻灯片 1 - 4 中复制它。有没有办法做到这一点？或者我必须找到另一种方法来做到这一点

当前代码：

 Do Until rs.EOF
     Dim myPres As Presentation
Dim mySlide As SlideRange
Set myPres = ActivePresentation
Dim sldRng As PowerPoint.SlideRange
Set sldRng = ActivePresentation.Slides.Range(Array(1, 2, 3, 4)).Duplicate
sldRng.Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value
sldRng.Shapes(2).TextFrame.TextRange = rs.Fields("SeqData").Value

Answer 1

这将是引发错误的行，不是吗？

sldRng.Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value

幻灯片范围包含幻灯片；幻灯片本身包含形状，因此您需要引用 sliderange 中的单个幻灯片，然后仅引用该幻灯片上的形状集合：

sldRng(1).Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value

或更有可能：

Dim x as Long
For x = 1 to sldRng.Count
   sldRng(x).Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value
Next

在PPT中复制时如何添加数据库值

how do i add in database values when duplicating In PPT

powerpoint

vba