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

2019PHP高薪工程师学习路线图....>>>

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