如何使用officer包调整PowerPoint文本框的文本对齐方式（上/中/下）？

要让description对应的文本在PowerPoint文本框中实现顶部对齐，你需要通过fp_par()定义段落的垂直对齐属性，再将其传入fpar()的fp_p参数中，具体修改如下：

修改后的description变量 #

# 定义段落格式：设置垂直对齐为顶部
fp_top_align <- fp_par(vertical.align = "top")

# 将段落格式应用到fpar对象中
description <- fpar(
  ftext("Campaign Insights", fp_text(color = "#545759", font.size = 14, font.family = fontname)),
  fp_p = fp_top_align
)

完整代码示例 #

# 定义段落顶部对齐格式
fp_top_align <- fp_par(vertical.align = "top")

description <- fpar(
  ftext("Campaign Insights", fp_text(color = "#545759", font.size = 14, font.family = fontname)),
  fp_p = fp_top_align
)

title <-  fpar(ftext("Campaign: Overall Metric Results ", fp_text(color = "White", font.size = 20, font.family ="Avenir Next LT Pro Demi", bold = T)))
add_slide(my_pres,layout = "7_Custom Layout", master = "Office Theme") %>%
  ph_with(ft, location = ph_location(left =0.17 , top = 1.59, width = 9.16, height = .3))%>%
  ph_with(chart, location = ph_location(left = 0.17, top = 1.58, width = 9.33, height = 4))%>%
  ph_with(title, location = ph_location(left = 0.22, top = 0, width = 9.49, height = .6))%>%
  ph_with(paragraph, location = ph_location(left = 0.36, top = 5, width = 1.5, height = .5 ))%>%
  ph_with(description, location = ph_location(left = 0.22, top = 0.6, width = 9.49, height = 1, anchor = "topleft"))

说明 #

fp_par()是officer包中用于定义段落布局格式的函数，其中vertical.align参数可设置文本在段落内的垂直对齐方式，可选值包括"top"（顶部）、"center"（居中）和"bottom"（底部）。将这个格式对象传给fpar()的fp_p参数后，段落内的文本就会按照设置的对齐规则显示在文本框中。

内容的提问来源于stack exchange，提问作者megmac