VBA（とVB6）ExcelからPowerPointの

Question

への貼り付けで発行し、I がよくにエラー"クリップボードが空であるか、または貼り付けられない可能性のあるデータが含まれています"を取得します。コピーと貼り付けの間に遅延の問題があるように見えます。

私はWin10オフィス2016 64B

回避策がありますを使用していますか？

私はVB6でそれを実行しようとしましたが、グラフのデータ型と同じ問題

Answer 1

使用ppPasteEnhancedMetafile = 2またはppPasteShape = 11またはppPasteJPG = 5
に見えてきました！

洗浄し、改善されたコード：

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 

またはpickを取る：