excel表格内容转换成图片.doc

《excel表格内容转换成图片.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、excel表格内容转换成图片PrivateSubCommandButton1_Click()DimNewshapeAsShape  Selection.CopyPictureAppearance:=xlScreen,Format:=xlPicture‘selection.copy是将选择的内容复制到剪贴板  ActiveSheet.Paste’使用selection.paste将剪贴板中的内容粘贴到选区    SetNewshape=ActiveSheet.Shapes(ActiveSheet.Shapes.Count)    WithActiveSheet

2、.ChartObjects.Add(1,1,1,1)      .Width=Newshape.Width      .Height=Newshape.Height      Newshape.Copy      .Chart.Paste      .Chart.ExportActiveWorkbook.Path&"Myjpg.jpg"      .Delete    EndWith    Newshape.Delete  MsgBox"恭喜!图片已生成并存放在"&ActiveWorkbook.PathEndSub生成图片的VBA代码ActiveChart

3、.CopyPicture_    Appearance:=xlScreen,Size:=xlScreen,Format:=xlPicture复制当前图表作为一个图片，使用此语法：ActiveChart.CopyPicture_    Appearance:=xlScreen,Format:=xlPicture复制选定的工作表范围作为一个图片上面，使用此语法：Selection.CopyPicture_    Appearance:=xlScreen,Format:=xlPicture有时你可能喜欢在一个一般定义范围或图表，没有选择的对象。复制一个通用嵌入式图

4、表作为一个图片，使用此语法：Worksheets("SheetName").ChartObjects(1).Chart.CopyPicture_    Appearance:=xlScreen,Size:=xlScreen,Format:=xlPicture复制一个一般图表作为一个图片，使用此语法：Charts("ChartSheetName").CopyPicture_    Appearance:=xlScreen,Format:=xlPicture复制工作表范围一般为图片，使用此语法：Worksheets("SheetName").Range("A1:

5、D4").CopyPicture_    Appearance:=xlScreen,Format:=xlPicture