Nothing
"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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.