VBA将Excel中图表和电子表格复制为图片

2015/04/09 69058

清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>> 

ActiveChart.CopyPicture _
    Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

复制当前图表作为一个图片，使用此语法：

ActiveChart.CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture

复制选定的工作表范围作为一个图片上面，使用此语法：

Selection.CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture

有时你可能喜欢在一个一般定义范围或图表，没有选择的对象。复制一个通用嵌入式图表作为一个图片，使用此语法：

Worksheets("Sheet Name").ChartObjects(1).Chart.CopyPicture _
    Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

复制一个一般图表作为一个图片，使用此语法：

Charts("Chart Sheet Name").CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture

复制工作表范围一般为图片，使用此语法：

Worksheets("Sheet Name").Range("A1:D4").CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture