ReporteRS不服从模板子弹

Question

我试图使用R包ReporteRS创建一个演示文稿。无序列表似乎只服从ReporteRS设置的有限选项。是否要让get ReporteRS服从模板中的默认设置？

Answer 1

这方面的解决方案，虽然不是很优雅，但可以使用VBA或VBScript重新设置幻灯片。下面是我使用VBScript重新设置所有幻灯片的解决方案。简单地将一个文件拖放到用.vbs扩展名保存的脚本上。

Dim inputFile
Dim objPresentation

inputFile = WScript.Arguments(0)
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
objPPT.Presentations.Open inputFile
Set objPresentation = objPPT.ActivePresentation

slideCount = objPresentation.Slides.Count

For i = 1 to slideCount
    objPresentation.Slides(i).Select
    objPresentation.Application.CommandBars.ExecuteMso("SlideReset")
Next

objPresentation.Save
objPPT.Quit