将 Excel 图表复制/粘贴到 PowerPoint 错误

Question

我正在尝试在 Excel 工作簿中获取 60 个图表并将它们粘贴到 PowerPoint。 在我们转换到 Office 365 之前它一直运行良好。现在我收到一个错误

指定的数据类型不可用

这是代码：

copy_chart "318Pivot", "cht404_318", 3

Public Function copy_chart(sheet, chart, slide)
Dim oshp As Shape
Dim PPApp As Object
Dim PPPres As Object
Dim PPSlide As Object
Dim PPShape As Object

Set PPApp = GetObject(, "Powerpoint.Application")
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide
PPApp.ActiveWindow.View.GotoSlide (slide)

Worksheets(sheet).Activate
ActiveSheet.ChartObjects(chart).chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

' paste and select the chart picture
PPSlide.Shapes.PasteSpecial DataType:=ppPasteJPG  '**This is where it errors out**

'With PPShape
For j = 1 To PPSlide.Shapes.Count
With PPSlide.Shapes(j)
    If .Type = msoPicture Then
        .LockAspectRatio = False
        .Height = 5# * 72
        .Width = 10# * 72
        .Left = 0# * 72
        .Top = 1.5 * 72
    End If
End With
Next j
DoEvents

' Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
Set PPShape = Nothing

End Function

以前效果很好。 我尝试过ppPasteDefault和ppPasteEnhancedMetafile但它们都使 PowerPoint 文件 > 30 MB。 在它工作之前，它是 3 MB。

有谁知道为什么我突然不能再使用 ppPasteJPG 以及如何更正代码？

Answer 1

如果你不使用早期绑定，Excel VBA 将不知道 ppPasteJPG 是什么意思。 但是 ppPasteJPG 只是一个值为 5 的命名常量。所以替换

PPSlide.Shapes.PasteSpecial DataType:=ppPasteJPG

和

PPSlide.Shapes.PasteSpecial DataType:=5

Answer 2

得到它的工作。 发现复制行由于某种原因实际上并未复制图表。 不知道为什么复制 ChartArea 有效而复制 Chart 却没有。

'ActiveSheet.ChartObjects(chart).chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Worksheets(sheet).Activate
ActiveSheet.ChartObjects(chart).Activate
ActiveChart.ChartArea.Copy
' test to see if the clipboard is empty

Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

' paste and select the chart picture
PPSlide.Shapes.PasteSpecial DataType:=ppPasteJPG