ppt中循环添加幻灯片和文本框时出错

Question

For i = 0 To UBound(sz)
  For j = 1 To bqs
.Slides.Add i + 1, ppLayoutText
.Slides(i + 1).Shapes(1).TextFrame.TextRange.Text = sz(i)
.Slides(i + 1).Shapes(1).Top = 50
.Slides(i + 1).Shapes(1).TextFrame.TextRange.Font.Size = 20
SendKeys "{pgdn}"
Nexti是幻灯片的循环变量
j是幻灯片中文本框的循环变量
为什么运行时会出错呢?

Answer 1

代码忘了该了
Shapes(1)应该是Shapes(j)For i = 0 To UBound(sz)
  For j = 1 To bqs
.Slides.Add i + 1, ppLayoutText
.Slides(i + 1).Shapes(j).TextFrame.TextRange.Text = sz(i)
.Slides(i + 1).Shapes(j).Top = 50
.Slides(i + 1).Shapes(j).TextFrame.TextRange.Font.Size = 20
SendKeys "{pgdn}"
Next谁能告诉小弟是那里错了?

Answer 2

谁能告诉我for循环错在哪了啊?

Answer 3

1、“.Slides.Add i + 1, ppLayoutText”应该放到第一个循环下，是不是？
2、没有添加文本框命令。
3、三条语句本可以在一条语句中完成。sendkeys "{pgdn}" 起什么作用？
想新建演示文稿还是在本演示文稿中添加幻灯片？能不能把文件传给我？[email protected]