欢迎来到尧图网

客户服务 关于我们

您的位置:首页 > 财经 > 创投人物 > PPT转图片拼贴工具 v2.0

PPT转图片拼贴工具 v2.0

2025/6/9 9:10:55 来源:https://blog.csdn.net/qq_57187936/article/details/148453404  浏览:    关键词:PPT转图片拼贴工具 v2.0

软件介绍

这个软件的作用就是将文件夹里面的PPT文件转换为图片并且拼接起来。

但是我还没有解决可视化界面问题

效果展示如下:
在这里插入图片描述

软件源码

import os
import re
import win32com.client
from PIL import Imagedef convert_ppt_to_png(ppt: str, output_folder: str) -> None:try:pptObj = win32com.client.Dispatch("PowerPoint.Application")except Exception as e:raise RuntimeError(f"无法启动 PowerPoint 应用程序: {e}")if not os.path.exists(ppt):raise FileNotFoundError(f"PPT 文件不存在: {ppt}")presentation = pptObj.Presentations.Open(ppt, WithWindow=False)presentation.SaveAs(output_folder, 18)presentation.Close()pptObj.Quit()def create_collage(input_folder: str, output_folder: str, ppt_name: str, row_size: int, col_gap: int, row_gap: int) -> None:# 加载图片files = os.listdir(input_folder)# 匹配"幻灯片数字.png"格式的文件,不区分大小写slide_files = [f for f in files if re.match(r"幻灯片\d+\.png", f, re.IGNORECASE)]if not slide_files:raise RuntimeError(f"未找到幻灯片图片文件")# 按数字排序幻灯片图片slide_files.sort(key=lambda x: int(re.search(r'\d+', x).group()))# 打开所有图片try:images = [Image.open(os.path.join(input_folder, f)) for f in slide_files]except Exception as e:raise RuntimeError(f"加载图片时出错: {e}")# 获取图片尺寸if not images:raise RuntimeError("没有可处理的图片")width, height = images[0].size# 第一行图片放大显示first_img = images[0].resize((width * row_size + col_gap * (row_size - 1), height * row_size + int(col_gap * (row_size - 1) * height / width)), Image.LANCZOS)remaining_images = images[1:]# 计算画布尺寸rows = (len(remaining_images) + row_size - 1) // row_sizecanvas_width = first_img.widthcanvas_height = first_img.height + rows * (height + row_gap)# 创建画布collage_image = Image.new("RGB", (canvas_width, canvas_height), (255, 255, 255))# 粘贴第一张放大的图片collage_image.paste(first_img, (0, 0))# 粘贴剩余图片for i, img in enumerate(remaining_images):row = i // row_sizecol = i % row_sizex = col * (width + col_gap)y = first_img.height + row * (height + row_gap)collage_image.paste(img, (x, y))# 指定拼贴画的保存路径,使用PPT文件名collage_path = os.path.join(output_folder, f"{ppt_name}.png")collage_image.save(collage_path)# 删除临时PNG文件for f in slide_files:os.remove(os.path.join(input_folder, f))if __name__ == "__main__":ppt_folder = r'D:\Desktop\文件存储\1'  # PPT 文件夹路径output_folder = r'D:\Desktop\文件存储\1'  # 输出文件夹路径row_size = 3  # 每行图片数量col_gap = 10  # 列间距(像素)row_gap = 10  # 行间距(像素)# 确保输出文件夹存在os.makedirs(output_folder, exist_ok=True)# 遍历 PPT 文件夹中的所有 PPT 文件for filename in os.listdir(ppt_folder):if filename.endswith(('.ppt', '.pptx')):ppt = os.path.join(ppt_folder, filename)# 从 PPT 路径中提取文件名(不带扩展名)ppt_filename = os.path.basename(ppt)ppt_name = os.path.splitext(ppt_filename)[0]# 首先将 PPT 转换为 PNG 图片convert_ppt_to_png(ppt, output_folder)# 然后从生成的图片创建拼贴画create_collage(output_folder, output_folder, ppt_name, row_size, col_gap, row_gap)print(f"处理完成,拼贴画已保存为: {ppt_name}.png")# 保持程序打开,等待用户输入input("按回车键退出...")

源码获取

https://pan.quark.cn/s/cb51a1d51d03

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

热搜词