将Excel中图表和电子表格复制为图片代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】将Excel中图表和电子表格复制为图片

作者:DDT / 发布于2012/1/29/ 1763

它通常是最容易的工作活动图表或表格。用户会选择什么，然后运行一个宏命令栏按钮或使用快捷键。复制活跃的嵌入式图表作为一个图片，根据上述方法，使用此语法

<div>ActiveChart.CopyPicture _
 Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture</div>
<div>复制当前图表作为一个图片，使用此语法：</div>
<div>ActiveChart.CopyPicture _
 Appearance:=xlScreen, Format:=xlPicture</div>
<div>复制选定的工作表范围作为一个图片上面，使用此语法：</div>
<div>Selection.CopyPicture _
 Appearance:=xlScreen, Format:=xlPicture</div>
<div>有时你可能喜欢在一个一般定义范围或图表，没有选择的对象。复制一个通用嵌入式图表作为一个图片，使用此语法：</div>
<div>Worksheets("Sheet Name").ChartObjects(1).Chart.CopyPicture _
 Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture</div>
<div>复制一个一般图表作为一个图片，使用此语法：</div>
<div>Charts("Chart Sheet Name").CopyPicture _
 Appearance:=xlScreen, Format:=xlPicture</div>
<div>复制工作表范围一般为图片，使用此语法：</div>
<div>Worksheets("Sheet Name").Range("A1:D4").CopyPicture _
 Appearance:=xlScreen, Format:=xlPicture
</div>

试试其它关键字

　复制为图片　

同语言下

可能有用的

DDT贡献的其它代码(160)