通过所有循环vba保持选择

Posted 2021-03-29

如何选择范围存储在数组中的所有幻灯片？通过循环，它从头开始，因此一次只能选择一张幻灯片。如何用代码选择几个指定的幻灯片（即带有数组范围的幻灯片）？非常感谢！

ReDim arr(1 To 1) As Long    
Dim b As Long    
For b = LBound(arr) To UBound(arr)
ActivePresentaiton.Slides.Range(arr(b)).Select
Next

答案

您可以将Slides.Range方法与Array一起使用。以下示例选择幻灯片1,4和5：

Sub SlideRangeExample()

    Dim SlideArray(3) As Integer

    SlideArray(1) = 5
    SlideArray(2) = 1
    SlideArray(3) = 4

    ActivePresentation.Slides.Range(SlideArray).Select

End Sub

所以在你的情况下，只需用你的数组SlideArray替换arr：

ActivePresentation.Slides.Range(arr).Select