批量将当前文件夹下的PPT生成图片并合并成长图

qzwsa

比较简单的功能 ，简单粗暴的直接将当前文件夹下PPT文件按每一页生成图片，再将生成的图片合并成一张长图。
工具下载地址：https://wwzm.lanzouj.com/ityK20zl3qhi
新增优化功能：根据文件名生成对应的文件夹并增加一个批次只处理10文件防止内存溢出保证程序的稳定性。
下载地址 ：https://wwzm.lanzouj.com/ibAeg0zld8kd


原代码：

[Python] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

# -*- coding: utf-8 -*- """ Created on Tue Jun 20 12:53:25 2023   @author: 吾爱-qzwsa """   import os import win32com.client from PIL import Image   print("本工具20230620发布于吾爱。qzwsa")   def ppt_to_images():     # 判断当前文件夹是否有 PPT 文件     ppt_files = [file_name for file_name in os.listdir() if file_name.endswith(".ppt") or file_name.endswith(".pptx")]     if len(ppt_files) == 0:         print("没有找到 PPT 文件！")         return []       # 启动 PowerPoint 应用程序     app = win32com.client.Dispatch("PowerPoint.Application")       # 存储处理结果的字典     result = {         "ppt_count": 0,         "image_count": 0,         "merged_count": 0     }       # 遍历当前文件夹下的所有 PPT 文件     for file_name in ppt_files:         # 更新 ppt_count         result["ppt_count"] += 1           # 显示当前处理的 PPT 文件名         print(f"正在处理第 {result['ppt_count']} 个 PPT 文件：{file_name}...")           # 打开 PPT 文件         presentation = app.Presentations.Open(os.path.abspath(file_name))           # 存储当前 PPT 文件的所有图片的列表         image_list = []           # 遍历每一页幻灯片         for i, slide in enumerate(presentation.Slides):             # 设置图片输出路径和文件名             image_path = f"{os.path.splitext(file_name)[0]}_{i+1}.jpg"             image_path = os.path.join(os.getcwd(), image_path)               # 另存为图片             slide.Export(image_path, "JPG")             result["image_count"] += 1               # 将图片打开，添加到列表             image = Image.open(image_path)             image_list.append(image)           # 关闭 PPT 文件         presentation.Close()           # 如果当前 PPT 文件没有图片，则不合并图片         if len(image_list) == 0:             continue           # 合并当前 PPT 文件的所有图片         width, height = image_list[0].size         height *= len(image_list)         merged_image = Image.new("RGB", (width, height))         for i, image in enumerate(image_list):             merged_image.paste(image, (0, i * height // len(image_list)))         # 获取当前 PPT 文件名，用于作为合并后大图的文件名的一部分         ppt_name = os.path.splitext(file_name)[0]         merged_image_path = os.path.join(os.getcwd(), f"{ppt_name}-合并图.jpg")         merged_image.save(merged_image_path)         result["merged_count"] += 1       # 关闭 PowerPoint 应用程序     app.Quit()       # 如果没有处理任何 PPT 文件，则返回空列表     if result["ppt_count"] == 0:         return []       # 输出处理结果     print(f"已处理 {result['ppt_count']} 个 PPT，共生成 {result['image_count']} 张图片，合并了 {result['merged_count']} 张大图。")       return [f"{os.path.splitext(file_name)[0]}-合并图.jpg" for file_name in ppt_files if len([slide for slide in win32com.client.Dispatch("PowerPoint.Application").Presentations.Open(os.path.abspath(file_name)).Slides]) > 0]   if __name__ == "__main__":     ppt_to_images()

caolin1861

正是所需要的，不过有个大胆的想法，能不能做个Word及excel转换图片的这种工具啊，哈哈！

borea

这个不错 工作有时候用得上

zhaoyafei19

小巧实用

supernox

此乃神器   必须好评！！！！

lazychen

有没有PDF直接拖入转高清图片的。？？？

wi_xue2008

谢谢分享

xiaodada

这个不错 工作有时候用得上

blindcat

感觉不错，有时候会用得上

qzwsa

lazychen 发表于 2023-6-20 13:36
有没有PDF直接拖入转高清图片的。？？？

以前有做过，但没发布到论坛上