如何用R从PPT提取图片并保存为独立JPEG文件

云原生阿岚

2026-7-3

提取PPT中的图片到独立JPEG文件

你可以使用officer包的extract_media()函数直接提取PPT里的所有媒体文件（包括图片），步骤如下：

单文件处理示例

library(officer)

# 读取PPT文件
wd <- "你的工作目录路径"
doc <- read_pptx(paste0(wd, "/", files[1]))

# 提取图片到指定目录（比如当前目录下的extracted_imgs文件夹）
extract_media(doc, target_dir = file.path(wd, "extracted_imgs"))

批量处理多个PPT文件

如果要处理一批PPT文件，可以用循环遍历：

library(officer)

wd <- "你的工作目录路径"
files <- list.files(wd, pattern = "\\.pptx$", full.names = TRUE)

# 创建保存图片的根目录
img_dir <- file.path(wd, "extracted_imgs")
if (!dir.exists(img_dir)) dir.create(img_dir)

# 遍历每个PPT文件提取图片
for (file in files) {
  doc <- read_pptx(file)
  # 为每个PPT创建独立子目录，避免图片重名覆盖
  ppt_name <- tools::file_path_sans_ext(basename(file))
  target_subdir <- file.path(img_dir, ppt_name)
  if (!dir.exists(target_subdir)) dir.create(target_subdir)
  
  extract_media(doc, target_dir = target_subdir)
}