复制在PPT

Question

当试图复制幻灯片1如何添加在数据库中的值 - 4它将从我的数据库中提取数据到形状1和2

但我得到一个错误：方法的“项目”的object'Shapes'Failed

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”）值

甲sliderange包含幻灯片。幻灯片本身包含的形状，所以需要引用来自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