Python 操作 PowerPoint OLE 对象的实现

pip install Spire.Presentation

from spire.presentation.common import *
from spire.presentation import *

inputFile = "./Data/EmbedExcelAsOLE.xlsx"
outputFile = "EmbedExcelAsOLE.pptx"

# 创建 PowerPoint 文档
ppt = Presentation()

# 加载一个图片文件作为 OLE 对象的预览图
stream = Stream("Data/EmbedExcelAsOLE.png")
oleImage = ppt.Images.AppendStream(stream)
stream.Close()

# 定义 OLE 对象的位置和大小
rec = RectangleF.FromLTRB(80, 60, oleImage.Width+80, oleImage.Height+60)

# 插入基于 Excel 数据的 OLE 对象
oleStream = Stream(inputFile)
oleObject = ppt.Slides[0].Shapes.AppendOleObject("excel", oleStream, rec)
oleObject.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage
oleObject.ProgId = "Excel.Sheet.12"
oleStream.Close()

# 保存文档
ppt.SaveToFile(outputFile, FileFormat.Pptx2010)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

inputFile = "./Data/EmbedZipIntoPPT.pptx"
inputFile_z = "./Data/test.zip"
inputFile_i = "./Data/icon.png"
outputFile = "EmbedZipIntoPPT.pptx"

# 创建 PowerPoint 文档
ppt = Presentation()
ppt.LoadFromFile(inputFile)

# 加载 ZIP 文件流
stream = Stream(inputFile_z)

# 定义 OLE 对象的位置和大小
rec = RectangleF.FromLTRB(80, 60, 180, 160)

# 插入 ZIP 对象到演示文稿
ole = ppt.Slides[0].Shapes.AppendOleObject(inputFile_z, stream, rec)
ole.ProgId = "Package"  # Package ProgID 用于 ZIP 等压缩文件

# 加载并设置图标图片
image = Stream(inputFile_i)
oleImage = ppt.Images.AppendStream(image)
ole.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage

# 保存文档
ppt.SaveToFile(outputFile, FileFormat.Pptx2010)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

inputFile = "./Data/ExtractOLEObject.pptx"
outputFile_xls = "ExtractOLEObject.xls"
outputFile_xlsx = "ExtractOLEObject.xlsx"
outputFile_doc = "ExtractOLEObject.doc"
outputFile_docx = "ExtractOLEObject.docx"

# 创建 PowerPoint 文档
presentation = Presentation()

# 从磁盘加载文档
presentation.LoadFromFile(inputFile)

# 遍历幻灯片和形状
for slide in presentation.Slides:
    for shape in slide.Shapes:
        if isinstance(shape, IOleObject):
            # 找到 OLE 对象
            oleObject = shape if isinstance(shape, IOleObject) else None

            # 获取其数据并写入文件
            stream = oleObject.Data
            if oleObject.ProgId == "Excel.Sheet.8":
                stream.Save(outputFile_xls)
            elif oleObject.ProgId == "Excel.Sheet.12":
                stream.Save(outputFile_xlsx)
            elif oleObject.ProgId == "Word.Document.8":
                stream.Save(outputFile_doc)
            elif oleObject.ProgId == "Word.Document.12":
                stream.Save(outputFile_docx)
            
            stream.Dispose()

presentation.Dispose()

from spire.presentation.common import *
from spire.presentation import *

inputFile = "./Data/ModifyOLEData.pptx"
outputFile = "ModifyOLEData.pptx"

# 创建 PowerPoint 文档
presentation = Presentation()

# 从磁盘加载文档
presentation.LoadFromFile(inputFile)

# 遍历幻灯片和形状
for slide in presentation.Slides:
    for shape in slide.Shapes:
        if isinstance(shape, IOleObject):
            # 找到 OLE 对象
            oleObject = shape if isinstance(shape, IOleObject) else None

            # 获取其数据
            stream = oleObject.Data
            stream2 = Stream()
            if oleObject.ProgId == "PowerPoint.Show.12":
                # 加载 PowerPoint 流
                ppt = Presentation()
                ppt.LoadFromStream(stream, FileFormat.Auto)
                
                # 在幻灯片中追加一个图像
                ppt.Slides[0].Shapes.AppendEmbedImageByPath(
                    ShapeType.Rectangle, "Data/Logo.png", RectangleF.FromLTRB(50, 50, 150, 150))
                
                # 保存到新的流
                ppt.SaveToFile(stream2, FileFormat.Pptx2013)
                stream2.Position = 0
                
                # 修改数据
                oleObject.Data = stream2

# 保存文档
presentation.SaveToFile(outputFile, FileFormat.Pptx2013)
presentation.Dispose()