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

Question

我有以下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

假设您已正确声明并设置$scope.disputeButton = function(item){ alert(item.StoreNumber); } 到所需的幻灯片，请使用以下代码：

mySlide