Question

以下命令一次删除演示文稿中的幻灯片数组：

ActivePresentation.Slides.Range(Array(1, 5, 69, 70.....)).delete

但是如何在继续删除之前将特定幻灯片添加到数组（如果幻灯片满足某些条件）？

Answer 1

According to MSDN，发送到Range函数的参数可以是Integer索引，String幻灯片名称或整数和字符串数组。如果你想使用SlideRange来执行删除，你可以先定义数组，按名称或索引号添加你想要的任何幻灯片，然后加载SlideRange并执行删除：

Public Sub Test()
    Dim arrSlides() As Variant
    arrSlides = Array(1, 2, 69, 70)

    'Put this next part in a loop to continue adding more slides
    ReDim Preserve arrSlides(UBound(arrSlides) + 1)
    arrSlides(4) = 83  ' or "Name Of Slide"

    Application.ActivePresentation.Slides.Range(arrSlides).Delete
End Sub

替代解决方案

如果您的目标是删除符合特定条件的幻灯片，则可能更容易迭代它们并删除它们。这样，您就可以更自由地测试每张幻灯片的特定属性。

Public Sub Test()
    Dim tempSlide As Slide
    For Each tempSlide In Application.ActivePresentation.Slides
        If tempSlide.Shapes.Count > 3 Then 'Or whatever your condition actually is
            tempSlide.Delete
        End If
    Next
End Sub

将特定幻灯片添加到幻灯片的powerpoint数组

1 个答案: