R/PPT.Present.R

"PPT.Present" <-function(ppt){


#if(!comGetProperty(ppt$ppt,"Visible")){comSetProperty(ppt$ppt,"Visible",TRUE)}
ppt$ppt[["Visible"]]<-TRUE

#comInvoke(comGetProperty(ppt$pres,"SlideShowSettings"),"Run")

ppt$pres[["SlideShowSettings"]]$Run()

return(invisible(ppt))
}

Try the R2PPT package in your browser

Any scripts or data that you put into this service are public.

R2PPT documentation built on April 26, 2022, 5:08 p.m.