Sub SetOrder() ' Dim i As Integer Dim str As String For i = 1 To ActivePresentation.Slides.Count If str <> "" Then str = str & ", " str = str & ActivePresentation.Slides(i).slideID Next MsgBox "Slide ID's as detected are: " & vbCrLf & vbCrLf & str Dim sTemp Dim Value$ Dim varSlide, iIndex As Integer Dim slideID As Integer Open "C:\Program Files\American Greetings\SlideShow\Slides\slide_id.txt" For Input As #3 Line Input #3, Value$ sTemp = Split(Value$, ",") For i = 1 To ActivePresentation.Slides.Count varSlide = CInt(sTemp(i - 1)) ActivePresentation.Slides.FindBySlideID(varSlide).Copy ActivePresentation.Slides.Paste i ActivePresentation.Slides.FindBySlideID(varSlide).Delete Next End Sub
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.