#安裝庫
pip install pyautogui
#安裝庫
pip install  pillow

 
import os
import comtypes.client
from tkinter import Tk, filedialog
from PIL import Image
def ppt_to_images(ppt_file):
 try:
    # 導入comtypes.client模塊并創(chuàng)建PowerPoint應用程序對象
    powerpoint = comtypes.client.CreateObject("Powerpoint.Application")
    # 設置PowerPoint應用程序為可見狀態(tài)，便于觀察操作過程（可選）,修改為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 = None
    print(ppt_file+"分圖完成！")
 except Exception as e:
        print("分圖時發(fā)生錯誤：", str(e))
def merge_images(directory, png_file):
    try:
        Image.MAX_IMAGE_PIXELS = 2 ** 40
        images = []  # 存儲圖片對象
        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 None
        max_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))  # 創(chuàng)建最終圖像
        # 逐個粘貼圖片到最終圖像中
        y_offset = 0
        for 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("合并圖片時發(fā)生錯誤：", 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 image
               merge_images(directory, png_file)  # image to images
            elif ppt_file.lower().endswith(".ppt"):
                png_file = os.path.join(directory, ppt_file[:-4] + ".png")
                ppt_to_images(ppt_file)  # PPT to image
                merge_images(directory, png_file)  # image to images
          except Exception as e:
           print("處理PPT文件時發(fā)生錯誤，跳過該文件：", str(e))
        print("轉換完成！")
    except Exception as e:
        print("選擇目錄并轉換PPT文件時發(fā)生錯誤：", str(e))
# 選擇目錄并轉換PPT到PDF格式，再將PDF轉換為長圖
select_directory()
 

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 = 0
    for 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模塊并創(chuàng)建PowerPoint應用程序對象
    powerpoint = comtypes.client.CreateObject("Powerpoint.Application")
    # 設置PowerPoint應用程序為可見狀態(tài)，便于觀察操作過程（可選）,修改為0后報錯
    powerpoint.Visible = 1
    # 打開PPT文件，并返回Presentation對象
    presentation = powerpoint.Presentations.Open(ppt_path)
    # 將打開的PPT文件導出為PDF文件（第二個參數(shù)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的路徑,拼接ppt
        pdf_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()