通过所有循环vba保持选择

Question

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

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

Answer 1

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

odeint

因此，在您的情况下，只需将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