从Excel粘贴到PowerPoint中的VBA（和VB6）问题

Question

I'm using this code for exporting Excel charts to PowerPoint

Sub ChartsToPresentation()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim PresentationFileName As Variant
Dim SlideCount As Long
Dim iCht As Integer

 Application.CutCopyMode = False
 Set PPApp = GetObject(, "Powerpoint.Application.16")
 Set PPSlide = PPApp.ActiveWindow.View.Slide
 nv = PPApp.ActiveWindow.Selection.SlideRange.SlideIndex

  ActiveChart.ChartArea.Select
  Selection.Copy

 ggg: Set shp =    PPApp.ActivePresentation.Slides(nv).Shapes.PasteSpecial(DataType:=0)
 If Err Then GoTo ggg
 Application.CutCopyMode = False
End Sub

As I'm invoking the sub for many different charts in a loop, I get often an error "Clipboard is empty or contains data which may not be pasted" . It looks as delay problem between the Copy and the paste.

I'm using Win10 office 2016 64b

Is there a workaround?

I've tried to do it with VB6 but looks the same problem

Answer 1

Use ppPasteEnhancedMetafile = 2 or ppPasteShape = 11 or ppPasteJPG = 5
as DataType for charts!

Cleaned and improved code :

Sub ChartsToPresentation()
Dim PPApp As PowerPoint.Application
Dim PPSlide As PowerPoint.Slide

Application.CutCopyMode = False
Set PPApp = GetObject(, "Powerpoint.Application")
Set PPSlide = PPApp.ActiveWindow.View.Slide

ActiveChart.ChartArea.Copy
DoEvents
PPSlide.Shapes.PasteSpecial DataType:=ppPasteShape
Application.CutCopyMode = False
End Sub

Or take a pick :