Microsoft Excel复制粘贴到Powerpoint，这两个文件崩溃

我有以下的VBA代码，我在复制一个Excel范围的Powerpoint。 我玩过各种延迟，以确保复制粘贴命令执行正确，但文件崩溃，无论延迟。

我目前有一个Do loop ，文件仍然崩溃，没有退出循环。 如果有人能提供一些指导，将不胜感激

 rng.Copy DoEvents Do On Error Resume Next mySlide.Shapes.PasteSpecial ppPasteBitmap '2 = ppPasteEnhancedMetafile Set myShape = mySlide.Shapes(mySlide.Shapes.Count) 'Set position: myShape.Left = 50 myShape.Top = 141 myShape.Width = 620 myShape.Height = 320 If Err.Number = 0 Then On Error GoTo 0 Exit Do End If Loop 

Answer 1

假设您将mySlide正确声明并设置为所需幻灯片，请使用以下代码：

 Dim myShape As Object Set myShape = mySlide.Shapes.PasteSpecial(ppPasteBitmap) 'Set position: myShape.Left = 50 myShape.Top = 141 myShape.Width = 620 myShape.Height = 320