类Range的copypicture方法无效

[轮子酱]

找了一段小代码改了改，想实现的就是对excel固定位置截图保存...保存成宏然后使用python的微信机器人自动触发调用，但是有大概15%的概率会出现报错提示“类Range的CopyPicture方法无效”，遇到的时候点击“调试”然后点击继续就可以正常继续运行了，想请教一下这个报错是为啥？代码附在下面，总是报错的是这一行：

Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

Sub 自动截图()
'
' 自动截图 宏
'

'
    Windows("JPInstantSLA-20190702.xlsm").Activate
    Sheets("INT SLA Dashboard").Select
    Range("A33:H55").Select
    
    Dim time As String
    time = CStr(Now())
    
    Selection.Copy
    
    Application.CutCopyMode = False
    
    If Application.Wait(Now + TimeValue("0:00:2")) Then
       Dim u As Integer
         u = 1
    End If
    
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    Application.CutCopyMode = False
    
    If Application.Wait(Now + TimeValue("0:00:2")) Then
         u = 1
    End If
    
    Range("a1").Select
    ActiveSheet.Paste
     Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
     With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)
         .Width = Newshape.Width
         .Height = Newshape.Height
          Newshape.Copy
         .Select
         .Chart.Paste
         .Chart.Export ActiveWorkbook.Path & "\" & Cells(34, 12) & ".jpg"
         .Delete
     End With
     Newshape.Delete

End Sub