类Range的copypicture方法无效

2019-07-16 10:28:38 1.8k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【xlwings api语言参考】Range.CopyPicture 方法功能：将所选单元格区域作为图片复制到剪贴板。语法： rng.CopyPicture (Appearance,Format) rng是一个表示 Range 对象的变量。参数：名称必需/可选数据类型说明 Appearance 可选 XlPictureAppearance 指定图片的复制方式。 Format 可选 XlCopyPictureFormat 图片的格式。 XlPictureAppearance 枚举 (Excel) 指定图片的复制方式。名称值说阅读详情

找了一段小代码改了改，想实现的就是对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