Question

我试图创建这个可以创建10个空幻灯片的脚本，但由于某种原因它不起作用：

Sub CreatingSlides()
    Dim oPresentation As Presentation
    Set oPresentation = ActivePresentation
    Dim oSlide As Slide
    Dim oSlides As SlideRange
    Dim oShape As Shape
    Dim slideNumber As Integer
    Dim myindex As Integer

    Set myindex = 1
    ActivePresentation.Slides.add(Index:=myindex, Layout:=ppLayoutBlank).Select
    For myindex = 1 To 10
        myindex = myindex + 1
        ActivePresentation.Slides.add(Index:=myindex, Layout:=ppLayoutBlank).Select
    Next myindex
End Sub

我在这里做错了什么？也许我的循环在这里丢失了什么？

Answer 1

首先：

  Set myindex = 1

应该是：

  myindex = 1

Set用于对象引用。让我们为价值而且通常暗示，但您也可以使用：

  Let myindex = 1

具有相同的效果。

其次，松开线

  myindex = myindex + 1

这就是For / Next为你做的事情。你可能会有一些不同的行为期望，所以试试这个，我们可以从那里开始。

为什么这个幻灯片创建循环在VBA PowerPoint中不起作用？

1 个答案: