语言：python 3

用法：点击运行后，弹出窗口，选择文件夹，程序运行会将文件夹内的所有PPT文件全部转换成PPT长图，图片名称与PPT文件名称相同，保存位置相同。

如运行中报错，需要自行根据报错内容按照缺失的库

共分享两种代码，可以尝试运行。

代码1，需安装库

#安装库
pip install pyautogui
#安装库
pip install  pillow

import os
import comtypes.client
from tkinter import Tk, filedialog
from PIL import Imagedef ppt_to_images(ppt_file):try:# 导入comtypes.client模块并创建PowerPoint应用程序对象powerpoint = comtypes.client.CreateObject("Powerpoint.Application")# 设置PowerPoint应用程序为可见状态，便于观察操作过程（可选）,修改为0后报错#powerpoint.Visible = 1# 打开PPT文件，并返回Presentation对象presentation = powerpoint.Presentations.Open(ppt_file)for i, slide in enumerate(presentation.slides):      #slide是幻灯片序列slide.Export(f"slide_{i}.png", "PNG")# 关闭PPT文件presentation.Close()# 退出PowerPoint应用程序powerpoint.Quit()presentation = Noneprint(ppt_file+"分图完成！")except Exception as e:print("分图时发生错误：", str(e))
def merge_images(directory, png_file):try:Image.MAX_IMAGE_PIXELS = 2 ** 40images = []  # 存储图片对象for file in os.listdir(directory):file_path = os.path.join(directory, file)if os.path.isfile(file_path) and file.lower().endswith(".png"):image = Image.open(file_path)images.append(image)if len(images) == 0:print("未找到PNG格式的图片文件")return Nonemax_width = max(image.size[0] for image in images)  # 获取最大宽度total_height = sum(image.size[1] for image in images)  # 计算总高度final_image = Image.new("RGBA", (max_width, total_height), (0, 0, 0, 0))  # 创建最终图像# 逐个粘贴图片到最终图像中y_offset = 0for image in images:final_image.paste(image, (0, y_offset))y_offset += image.size[1]final_image.save(png_file)print("已生成图片"+png_file)if final_image:for file in os.listdir(directory):file_path = os.path.join(directory, file)if os.path.isfile(file_path) and file.lower().endswith(".png") and "slide" in file:os.remove(file_path)print("已删除图片"+file)except Exception as e:print("合并图片时发生错误：", str(e))def select_directory():try:root = Tk()root.withdraw()directory = filedialog.askdirectory(title="选择目录")ppt_files = [f for f in os.listdir(directory) if f.endswith('.pptx')or f.endswith('.ppt')]for ppt_file in ppt_files:try:#print("directory" + directory)if ppt_file.lower().endswith(".pptx"):png_file = os.path.join(directory, ppt_file[:-5] + ".png")ppt_to_images(ppt_file)  # PPT to imagemerge_images(directory, png_file)  # image to imageselif ppt_file.lower().endswith(".ppt"):png_file = os.path.join(directory, ppt_file[:-4] + ".png")ppt_to_images(ppt_file)  # PPT to imagemerge_images(directory, png_file)  # image to imagesexcept Exception as e:print("处理PPT文件时发生错误，跳过该文件：", str(e))print("转换完成！")except Exception as e:print("选择目录并转换PPT文件时发生错误：", str(e))# 选择目录并转换PPT到PDF格式，再将PDF转换为长图
select_directory()

代码2如下：

import os
import comtypes.client
from tkinter import Tk, filedialog
from pptx import Presentation
from PIL import Image#PPT转换成图片def ppt_to_images(ppt_file, png_file):#presentation = powerpoint.Presentations.Open(ppt_file)presentation = Presentation(os.path.join(png_file, ppt_file))for i, slide in enumerate(presentation.slides):      #slide是幻灯片序列slide.export(f"{png_file}/slide_{i}.png")     #将PPT转换成图片并保存到目录下print("PPT转换为图像完成！")#将图片拼接成长图
def merge_images(ppt_path, output_file):images = [Image.open(f"{ppt_path}/{img}") for img in os.listdir(ppt_path) if img.endswith(".png")]widths, heights = zip(*(img.size for img in images))total_height = sum(heights)max_width = max(widths)merged_image = Image.new("RGB", (max_width, total_height))y_offset = 0for img in images:merged_image.paste(img, (0, y_offset))y_offset += img.size[1]merged_image.save(output_file)print("图像拼接完成！")def ppt_to_pdf(ppt_path, pdf_file):   #ppt路径和pdf的路径# 导入comtypes.client模块并创建PowerPoint应用程序对象powerpoint = comtypes.client.CreateObject("Powerpoint.Application")# 设置PowerPoint应用程序为可见状态，便于观察操作过程（可选）,修改为0后报错powerpoint.Visible = 1# 打开PPT文件，并返回Presentation对象presentation = powerpoint.Presentations.Open(ppt_path)# 将打开的PPT文件导出为PDF文件（第二个参数2表示导出为PDF格式）presentation.ExportAsFixedFormat(pdf_file, 2)# 输出转换完成的信息print(ppt_path + "转PDF完成！")def select_directory():root = Tk()root.withdraw()directory = filedialog.askdirectory(title="选择目录")ppt_files = [f for f in os.listdir(directory) if f.endswith('.pptx')]for ppt_file in ppt_files:ppt_path = os.path.join(directory, ppt_file)       #ppt_path ppt的路径,拼接pptpdf_file = os.path.join(directory, ppt_file[:-4] + ".pdf")    #pdf文件png_file= os.path.join(directory, ppt_file[:-4] + ".png")ppt_to_pdf(ppt_path, pdf_file)print("转换完成！")# 选择目录并转换PPT到PDF格式，再将PDF转换为长图
select_directory()