视频转PPT（用PPT玩原神）

目录

先把视频逐帧保存成图片

图片插入PPT

​编辑

完整代码

效果展示

---

1.先把视频逐帧保存成图片

import cv2
import time
import os
import tkinter as t
import tkinter.filedialog
def vd():
    kuang.delete(0,"end")
    gu=t.filedialog.askopenfilename()  #选取视频
    lm=gu.split('/')[-1]            #视频名字
    v.set(lm)                      #在entry显示
    cap = cv2.VideoCapture(gu)  # 读取视频
    saving = True  # 控制视频是否将视频逐帧保存为图片
    frame_id = 0
    dir1 = ""
    dir1 = time.strftime("%Y_%m_%d_%H_%M_%S", time.localtime())   #时间作名字
    print(gu)
    os.mkdir(dir1)                      #建个文件夹
    saving = True
    frame_id = 0
    while True:
        _, im = cap.read()
        if im is None:
            break
        key = cv2.waitKey(10) & 0xFF
        if saving:
            file_name = dir1 +"\\" + str(frame_id)      #数字作图片名
            cv2.imwrite(file_name + ".jpg", im)      #保存图片
            frame_id += 1
        if (key == ord('q')) | (key == 27):
            break
    print("输出完毕")
gu=t.Tk()
gu.geometry('200x100')
v = t.StringVar()
kuang = t.Entry(width=20, textvariable=v)
kuang.pack()
an = t.Button(text="选择", command=vd,bg='skyblue').pack()    #蓝按钮
gu.mainloop()

2.图片插入PPT

from pptx import Presentation
from pptx.util import Inches
ppt=Presentation()  #实例化
#PPT格式设置16：9
ppt.slide_height = 9144000
ppt.slide_width = 16144000
#定义图片位置
left=Inches(0)
top=Inches(0)
#定义图片大小     只设置宽度 避免图片拉伸
width=Inches(18)
img_path = "C:/顾某.jpg'   #图片地址
pic = slide.shapes.add_picture(img_path, left, top, width)   #添加图片
ppt.save('顾某.pptx')

完整代码

import cv2
import time
import os
import tkinter as t
import tkinter.filedialog
from pptx import Presentation
from pptx.util import Inches
ppt=Presentation()  #实例化
ppt.slide_height = 9144000
ppt.slide_width = 16144000
#定义图片位置
left=Inches(0)
top=Inches(0)
#定义图片大小
width=Inches(18)
def vd():
    kuang.delete(0,"end")
    gu=t.filedialog.askopenfilename()
    lm=gu.split('/')[-1]
    ls=lm.split('.')[0]
    v.set(lm)
    cap = cv2.VideoCapture(gu)  
    saving = True  # 逐帧保存
    frame_id = 0
    dir1 = ""
    dir1 = time.strftime("%Y_%m_%d_%H_%M_%S", time.localtime())
    os.mkdir(dir1)
    saving = True
    frame_id = 0
    while True:
        _, im = cap.read()
        if im is None:
            break
        key = cv2.waitKey(10) & 0xFF
        if saving:
            file_name = dir1 +"\\" + str(frame_id)
            cv2.imwrite(file_name + ".jpg", im)
            frame_id += 1
        if (key == ord('q')) | (key == 27):
            break
    for li in range(frame_id):
        layt = ppt.slide_layouts[6]  # 空白布局
        slide = ppt.slides.add_slide(layt)
        img_path = dir1+'/' + str(li) + '.jpg'
        pic = slide.shapes.add_picture(img_path, left, top, width)
    ppt.save(ls+'.pptx')
    k.set("转换完毕")
gu=t.Tk()
gu.geometry('200x150')
v = t.StringVar()
k = t.StringVar()
gus=t.Label(text="视频地址").place(x=10,y=0)
kuang = t.Entry(width=20, textvariable=v)
kuang.place(x=10,y=20)
an = t.Button(text="选择", command=vd,bg='skyblue').place(x=155,y=16)
gum=t.Label(textvariable=k,font=('宋体',20))
gum.place(x=30,y=50)
gu.mainloop()

效果展示