i want to run the slide show say ten slides and then close it , but in my code given below it opens the slide show and closes immediately ... ..
please give me a solution to this problem
1. Please add MsPowerpoint11.0 object present in COM in ur references.
2. Code : --
Expand|Select|Wrap|Line Numbers
- Dim appPowerpoint as Powerpoint.Application
- dim book as Powerpoint.presentation
- dim slide as powerpoint.slides
- dim picture as powerpoint.sliderenge
- dim path as string ' location of the file
- appPowerpoint = new Powerpoint.Application
- appPowerpoint.Active( )
- appPowerpoint.NewPresentation.add(1,,)
- path = "d:\x.ppt"
- appPowerpoint.presentation.open(path,commes automatically(select the first choice),commes automatically(select the first choice))
- appPowerpoint.activePresentation.slideshow.run()
- '........
- ....... some code is needed so that i run the slide show say 10 slides and then close it
- .......
- but
- 'it quits immediately ........
- appPowerpoint.activePresentation.close
- appPowerpoint.windows.application.quit
with thanks,
mumbaisalsa