不能用officer改PPT标题字体

Question

用 officer 创建的 Powerpoints 中的标题字体没有改变。

我试过将 fp_text 添加到 ph_with 中，虽然它没有运行，但它从中产生了任何东西。


library(officer)
library(magrittr)

title.font <- fp_text(font.size = 28)    

example_pp <- read_pptx() %>% 
  # LMS slide ----  
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with(paste("Title font test"),
          location = ph_location_type(type = "title"), 
          fp_text(font.size = 28))

Answer 1

ph_with 中 fp_text 没有参数。

library(officer)
library(magrittr)

example_pp <- read_pptx() %>% 
  # LMS slide ----  
add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with(block_list(fpar(ftext("Title font test", prop = fp_text(font.size = 28, color = "red")))),
          location = ph_location_type(type = "title") )

见?block_list

不能用officer改PPT标题字体

Cannot change PPT title font with officer

fonts

r

title

officer