1

很高兴官员具有创建演示文稿内部幻灯片链接的功能。但是我不知道如何从可用的示例中使用它。我从未在下面的示例中看到指向页面的实际超链接，例如：

fileout <- tempfile(fileext = ".pptx")
doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with_text(x = doc, type = "title", str = "Un titre 1")
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with_text(x = doc, type = "title", str = "Un titre 2")
doc <- on_slide(doc, 1)
slide_summary(doc) # read column id here
doc <- ph_slidelink(x = doc, id_chr = "2", slide_index = 2)

print(doc, target = fileout )

在这里，我看不到第 2 页的任何链接出现在任何地方...您能帮帮我吗？谢谢！！

4

2 回答 2

2

如果单击“Un titre 1”（查看模式，而不是编辑模式），将显示幻灯片 2。

ph_slidelink(x = doc, id_chr = "2", slide_index = 2): 当点击 id "2" 的形状时，显示幻灯片 2 (slide_index = 2)

于 2017-09-21T13:13:20.920 回答
1

谢谢大卫！

我明白，但我想将文本链接到另一张幻灯片。同时，我想出了如何在这个 fork 中做到这一点： https ://github.com/danielinteractive/officer 在函数 ph_add_text2 中。随意将其中的一些东西放入您的包裹中，可能其他人也需要这个！

干杯丹尼尔

于 2017-09-21T16:43:36.630 回答