On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|RUNRMTCMD from AS/400||13||128|
|transition to visual .net from vb6||5||79|
|"Failed to convert parameter value from a String to a Decimal."||4||42|
|Email Excel WB by selecting name from a dropdown list to Outlook.||5||43|
Join the community of 500,000 technology professionals and ask your questions.