admin管理员组

文章数量:1534188

2024年3月16日发(作者:)

import win32com

import

import sys

import os

from PIL import Image

#获取当前目录

ppt_root = png_root =[0]+""

def ppt2png(pptFileName):

powerpoint = ch('ation')

#是否后台运行

e = True

ppt_path = ppt_root + pptFileName

outputFileName = pptFileName[0:-4] + ".pdf"

ppt = (ppt_path)

#保存为图片

(png_root + ('.')[0] + '.png' 17) # formatType = 17 ppt

转图片

#保存为pdf

#(png_root + outputFileName 32) # formatType = 32 ppt转pdf

# 关闭打开的ppt文件

()

# 关闭powerpoint软件

()

def pngMontage(dirName):

#打开目录下所有的png图片

imageList = [(png_root+dirName+''+img) for img

r(png_root+dirName) if th('.JPG')]

in

#获取每张图的宽高

widthheight = imageList[0].size

#新建空白图片并设置图片的宽高其中高度为所有图片高的总和

longImage = (imageList[0].mode(width*3int((len(imageList)*height)/3)))

begin_x = 0

begin_y = height*2

for indeximage in enumerate(imageList):

if (index == 0):

out = ((width*3begin_y)IAS)

(out(begin_x 0))

#begin_x += width

else:

(image(begin_x begin_y))

begin_x += width

if begin_x % (width*3) == 0:

begin_x = 0

begin_y += height

(dirName+'')

#批量打开当前目录下所有的ppt文件

for ppt in (pptFiles for pptFiles in r(ppt_root) if th('.pptx') or

th('.ppt')):

ppt2png(ppt) #ppt导出图片

pngMontage(ppt[0:-4]) #所有图片拼接成长图

#生成图片展示结果

本文标签: 图片打开关闭拼接支持