controlling Ms Powerpoint Slide show using Vb.net

[mumbaisalsa]

hi all,

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 : --

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

please reply back as soon as possible...


with thanks,
mumbaisalsa

[mumbaisalsa]

i got the solution to the problem ... .
appPowerpoint.ActivePresentation.SlideShowSettings .Run.View.GotoSlide(i, Microsoft.Office.Core.MsoTriState.msoCTrue = Microsoft.Office.Core.MsoTriState.msoCTrue)

added the above code and it works .......
thanks
mumbaisalsa

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 : --

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

please reply back as soon as possible...


with thanks,
mumbaisalsa