VBA导出excel中图片总是出现空白图片实在不知道怎么解决了

拾柒柒柒

天馈照片这个sheet页导出的图片大概率是空白的，其他sheet有几率是白色的，搞了好几天了，高位版本bug也试过了，都不行，大佬快来救救孩子吧，附件内注释有串行，请不要在意，空白问题卡住好多天了.....



Private Sub SaveChart(rng As Range, filename As String)
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    With ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height).Chart
        .Parent.Activate
        .Parent.Select
        DoEvents
        .Paste
        Do While Application.CutCopyMode <> False
            DoEvents
        Loop
        .Export ActiveWorkbook.Path & "\" & filename & ".jpg"
        .Parent.Select
        .Parent.Delete
        DoEvents
    End With
    ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height).Delete
    DoEvents
End Sub

拾柒柒柒

逐条执行没有任何问题，所有图片都能正常导出，但是一旦批处理，就出问题，多次执行 就会出现白图，

tspliu

我只能猜测一下：导出图片可能需要渲染和图像处理，你的程序并不等待这个过程，有时还没完成图像，你就开始了数据的拷贝。每循环一次加一段时间的等待试试吧

fxl447098457

建议你这个代码里不用doevents.因为chart导出的办法是需要焦点的。

3190496160

增加一句延时代码应该可以解决吧

3190496160

参考这个帖子
导出单元格中图片到文件夹中-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/threa ... tml?_dsign=10bdf551

perfect131

没有这么复杂 不推荐这种导图 质量太差
还有 Application.CutCopyMode 已经失效了 没用

https://club.excelhome.net/forum ... amp;_dsign=04896901

joforn

Application.ScreenUpdating = False ' 关闭屏幕更新
把这里的False改回True试试。如果关闭屏幕刷新，可能会影响到你的代码截图功能，Bug体现为截图大小正常，但图片是空白。