Powerpoint VB

[levickc2k]

Hi,

I am really struggling with some VB code that is important. It is in relation to a powerpoint file. I have recorded a macro from one sheet to another to get the following code. (If it helps). But i wish to replace the file opening with an auto run code so that the slideshow will run automatically when it opens.
I do not wish to store the file as a PPS file as i need the show to end as normal and i will be using the file afterwards to export some results.

Sub Macro1()
Presentations.Open FileName:="C:\Desktop\Presentation.ppt", ReadOnly:=msoFalse
With ActivePresentation.SlideShowSettings
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With
End Sub

Please help?

 

[SydneyGeek]

This snippet comes from a support page on the Microsoft KB. Does the .ShowType command help?

    ' Prepare and run the slide show.
    With ppPres.SlideShowSettings
        .ShowType = ppShowTypeKiosk
        .LoopUntilStopped = msoTrue

        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .Run
    End With

Denis

 

[levickc2k]

Hi, no this doesnt seem to have made any difference.

Although i am not sure if it would work as i do not know what the 'on-load' command is.

In Excel its workbook_open or something like that, but cant find anything that works for this (