VBA转图片的出空白解决方法

 Sub 导出为图片()

    Dim f$
    f = "D\DRdlb.JPG"
    If Dir(f) <> "" Then Kill f
    Sheets("sheet1").Select
    Range("A1:Q87").Select
    Selection.Copy
    Selection.CopyPicture    '选区复制为图片
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通过在当前工作表添加相同大小的图表的方式转存成图片
        .Parent.Select
        .Paste  '粘贴复制后的图片
        .Export "D:\DRdlb.JPG", "JPG"    '导出到当前工作表目录下,以当前区域首行单元格的值命名图片
        .Parent.Delete  '删除该图表
    End With
End Sub

大部长写的VBA转图片的

加粗是因为2016office的问题