欢迎来到天天文库
浏览记录
ID:57687832
大小:14.50 KB
页数:1页
时间:2020-09-01
《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
此文档下载收益归作者所有