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

ReporteRS 不遵守模板项目符号

ReporteRS not obeying template bullets

r

reporters