当我由F5运行它时，我的VBA代码无法正常运行，但由F8运行正常

Question

我正在尝试将我的Excel数据复制到PPT中已经存在的表中。我已经在excel中复制了正确的范围，但是当我在VBA中使用F8键运行下面的代码时，它工作正常，但是当我使用F5键运行整个代码时，只有这部分无法正常工作。使用F5按钮，它从excel工作表中复制了正确范围的数据，但是在将其粘贴到PPT表的过程中，它做了奇怪的事情（仅由F5键）。

If ChartType = "T" Then

        Set oPPSlide = opptfile.Slides(SlideNo)
        oPPSlide.Select

        Workbooks("Data.xlsx").Activate

       Worksheets("Sheet2").Range(S1, S2).Copy


       Set ppTbl = opptapp.ActivePresentation.Slides(SlideNo).Shapes(chartname)
       ppTbl.Table.Cell(2, 1).Shape.Select


       Set ppApp = GetObject(, "PowerPoint.Application")

       ppApp.CommandBars.ExecuteMso ("PasteExcelTableDestinationTableStyle")
End If