Hi John,
regarding the speed it should be much faster to "select"/hide the slides in front of the randomization, right? Cause there would be i.e. 20 slides instead of 60 to sort.
I dont really get how arrays work.
This one doesn't work [Slides (unknown member): Invalid request. Presentation contains no slides.] Anyways this would be a bad solution cause I'd need in in the way of your code with variables (like Iupper).
Dim MyArray(5 To 56) As Variant
ActivePresentation.Slides.Range(MyArray).SlideShowTransition.Hidden = True
For the following it says it needs a changeless expression instead of the variable Iupper.
Dim Ilowerhidden As Integer
Ilowerhidden = 3
Dim MyArray(Ilowerhidden To Iupper) As Variant
Another useful code snippet I found:
Dim PPT As Object
Dim Pres As Object
On Error Resume Next
Set PPT = CreateObject("PowerPoint.Application")
Set Pres = PPT.Presentations.Open(FileName:="C:\Documents and Settings\StuhrmannA\Desktop\E-Learning\Makro\makro5.pptm", ReadOnly:=False, Untitled:=False, WithWindow:=False)
If Pres.SlideShowWindow Is Nothing Then
Pres.SlideShowSettings.Run
End If
But for some reason it opens the slide view twice. Any suggestions?