将形状从 Powerpoint 复制到 Excel 时，VBA 保持格式

Question

我正在尝试使用 Excel VBA 宏将形状从 Powerpoint 演示文稿复制到 Excel 模板。但是，我无法保留原始 Powerpoint 源中的格式。

这是我目前得到的代码

    Public Sub test()

    Dim PPT As PowerPoint.Application
    Dim p As PowerPoint.Presentation
    Dim s As Slide
    Dim aux_vec as Variant
    Dim wkbk as Workbook

    Set PPT = CreateObject("PowerPoint.Application")
    PPT.Presentations.Open Filename:=src, ReadOnly:=True
    Workbooks.Open "template.xlsx", ReadOnly:=True
    Set wkbk = ActiveWorkbook

    PPT.Activate
    Set s = PPT.ActivePresentation.Slides(1) 'Slide to be copied

    ReDim aux_vec(s.Shapes.Count)
    For i = 1 To s.Shapes.Count
        aux_vec(i) = i
    Next i

    s.Shapes.Range(aux_vec).Copy
    Set wks = wkbk.Sheets("Sheet1") 'Destination sheet
    wks.Select
    wks.Range("C3").Select
    wks.PasteSpecial 5 ' <--- Changes theme

    End Sub

有什么想法吗？

编辑：修复了 Ryan B 评论后的代码片段。

Answer 1

我找到了一种解决方法： 我导出了 Powerpoint 演示文稿中使用的主题并将其导入 Excel。这样形状就可以保持它们的格式。不是最佳的，但它对我有用。