查看: 2720|回复: 3
如何将EXCEL的CHART导出为JPG图片来打印输出
阅读权限20
在线时间 小时
要求：① 将其中CHART保证其格式不变的情况下，导出为JPG图片文件；
& && && &&&②导出的JPG图片文件内容（chart）的大小为：长 X 宽 = 100cm X 200cm&&，并具有较高的分辨率，能确保打印后的图像清晰。
& && && &感谢诸位高手解答，敝人万分感谢！& && && && && && & E-mail：
阅读权限20
在线时间 小时
本帖最后由 Excel2119 于
23:30 编辑
请看附件：
未命名.jpg (60.66 KB, 下载次数: 0)
23:29 上传
阅读权限20
在线时间 小时
附件在这：
23:28 上传
点击文件名下载附件
15.39 KB, 下载次数: 9
阅读权限10
在线时间 小时
我都是在图片上点右键复制，然后粘帖到photoshop里面
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师UltraChart导出到Excel
UltraChart导出到Excel
发布时间： 15:51:21
编辑：www.fx114.net
本篇文章主要介绍了"UltraChart导出到Excel"，主要涉及到UltraChart导出到Excel方面的内容，对于UltraChart导出到Excel感兴趣的同学可以参考一下。
Here is a simple example of exporting the UltraChart to an Excel
spreadsheet.& It uses Office Interop so you need to include a reference
to the Microsoft Office 11 Object Library in your project.&& 1:&&Public&Class&Export&&&2:&&&&&3:&&&&&&Private&Sub&ChartToExcel(ByVal&chart&As&Infragistics.Win.UltraWinChart.UltraChart)&&&4:&&&&&&&&&&Try&&&5:&&&&&&6:&&&&&&&&&&&&&&Dim&xl&As&New&Excel.Application&&&7:&&&&&&&&&&&&&&Dim&wb&As&Excel.Workbook&=&xl.Workbooks.Add&&&8:&&&&&&&&&&&&&&Dim&sheet&As&Excel.Worksheet&=&wb.Worksheets(1)&&&9:&&&&&&&&&&&&&&sheet.Visible&=&Excel.XlSheetVisibility.xlSheetVisible&&10:&&&&&11:&&&&&&&&&&&&&&'add&the&top&title&to&the&sheet&as&the&header&&12:&&&&&&&&&&&&&&sheet.Range("A1").Value&=&chart.TitleTop.Text&&13:&&&&&&&&&&&&&&sheet.Range("A1").Font.Bold&=&True&&14:&&&&&&&&&&&&&&sheet.Range("A1").Font.Size&=&14&&15:&&&&&16:&&&&&&&&&&&&&&Dim&dt&As&DataTable&=&CType(chart.DataSource,&DataSet).Tables("Data")&&17:&&&&&18:&&&&&&&&&&&&&&'output&the&headers.&&19:&&&&&&&&&&&&&&Dim&intCol&As&Integer&=&1&&20:&&&&&&&&&&&&&&For&Each&col&As&DataColumn&In&dt.Columns&&21:&&&&&&&&&&&&&&&&&&sheet.Cells(2,&intCol)&=&col.ColumnName&&22:&&&&&&&&&&&&&&&&&&intCol&+=&1&&23:&&&&&&&&&&&&&&Next&&24:&&&&&25:&&&&&&&&&&&&&&'Bold&the&headers.&&26:&&&&&&&&&&&&&&sheet.Range("A2:"&&&Chr(64&+&intCol)&&&"2").Font.Bold&=&True&&27:&&&&&&&&&&&&&&sheet.Range("A2:"&&&Chr(64&+&intCol)&&&"2").Font.Size&=&12&&28:&&&&&29:&&&&&&&&&&&&&&'start&our&data&on&row&3&of&the&worksheet.&&30:&&&&&&&&&&&&&&Dim&intRow&As&Integer&=&3&&31:&&&&&&&&&&&&&&For&Each&row&As&DataRow&In&dt.Rows&&32:&&&&&&&&&&&&&&&&&&intCol&=&1&&33:&&&&&&&&&&&&&&&&&&For&Each&col&As&DataColumn&In&dt.Columns&&34:&&&&&&&&&&&&&&&&&&&&&&sheet.Cells(intRow,&intCol)&=&row.Item(col.ColumnName)&&35:&&&&&&&&&&&&&&&&&&&&&&intCol&+=&1&&36:&&&&&&&&&&&&&&&&&&Next&&37:&&&&&&&&&&&&&&&&&&intRow&+=&1&&38:&&&&&&&&&&&&&&Next&&39:&&&&&40:&&&&&&&&&&&&&&wb.Application.Visible&=&True&&41:&&&&&42:&&&&&&&&&&&&&&Dim&oChart&As&Excel.Chart&&43:&&&&&&&&&&&&&&Dim&xlsAxisCategory,&xlsAxisValue&As&Excel.Axes&&44:&&&&&&&&&&&&&&Dim&charts&As&Excel.ChartObjects&=&sheet.ChartObjects(Type.Missing)&&45:&&&&&46:&&&&&&&&&&&&&&'&Adds&a&chart&at&x&=&0,&y&=&0,&500&points&wide&and&300&tall.&&47:&&&&&&&&&&&&&&Dim&chartObj&As&Excel.ChartObject&=&charts.Add(0,&0,&400,&300)&&48:&&&&&&&&&&&&&&oChart&=&chartObj.Chart&&49:&&&&&50:&&&&&&&&&&&&&&Dim&xlsSerie&As&Excel.SeriesCollection&=&oChart.SeriesCollection&&51:&&&&&&&&&&&&&&oChart.ChartType&=&Excel.XlChartType.xlLine&&52:&&&&&53:&&&&&&&&&&&&&&'add&64&to&intCol&since&ASCII&A&is&65&and&then&take&the&Chr()&of&it.BR&&&54:&&&&&&&&&&&&&&Dim&chartRange&As&Excel.Range&=&sheet.Range("A1",&Chr((intCol&-&1)&+&64)&&&intRow)&&55:&&&&&&&&&&&&&&oChart.SetSourceData(chartRange,&Type.Missing)&&56:&&&&&57:&&&&&&&&&&&&&&wb.Application.Visible&=&True&&58:&&&&&59:&&&&&&&&&&Catch&ex&As&Exception&&60:&&&&&&&&&&&&&&Console.WriteLine("Doh!")&&61:&&&&&&&&&&End&Try&&62:&&&&&63:&&&&&&End&Sub&&64:&&End&Class
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：大多数情况下，当我们说将图表导出到Excel时，意思是将Chart当成图片导出到Excel中。如果是这样，你可以参考帮助文档中。
不过，也有另一种情况，当你想把图表中的数据用文本格式导出到Excel时，应该怎么办？本文就是针对这个需求提供的解决办法，将C1Chart绑定的数据导出到Excel表单中。
绑定Chart数据
关于Chart数据绑定，你可以参考文档。本文Demo中使用如下代码进行数据绑定：
DataTable dTable = new DataTable();
dTable.Columns.Add("时间");
dTable.Columns.Add("销量");
DataRow dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "一月", 2000 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "二月", 3423 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "三月", 2394 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "四月", 5920 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "五月", 4302 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "六月", 5222 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "七月", 6213 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "八月", 7990 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "九月", 6928 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "十月", 5021 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "十一月", 4321 };
dTable.Rows.Add(dRow);
dRow = dTable.NewRow();
dRow.ItemArray = new object[] { "十二月", 3232 };
dTable.Rows.Add(dRow);
c1Chart1.Data.ItemNameBinding = new Binding("时间");
c1Chart1.Data.Children.Add(new DataSeries() { ValueBinding = new System.Windows.Data.Binding("销量"), Name = "销量" });
c1Chart1.Data.ItemsSource = dTable.DefaultV
c1Chart1.ChartType = ChartType.C
c1Chart1.View.AxisY.AutoMin = false;
c1Chart1.View.AxisY.Min = 1000;
c1Chart1.View.AxisY.AutoMax = false;
c1Chart1.View.AxisY.Max = 8000;
c1Chart1.View.AxisY.MajorUnit = 1000;
导出Chart数据
现在看来，除了遍历Chart Element获取数据，没有别的办法可以导出Chart数据了。通过AxisX UIElement集合中拿到TextBlock元素并读取它的&Text&属性以获得标签轴的数据。同样的，检索Bar Elements获得每个系列数据然后读取&DataPoint&属性。实际执行请参考如下代码：
public C1.Silverlight.Excel.C1XLBook ExportChartExcel(C1.Silverlight.Chart.C1Chart _chart)
C1XLBook wb = new C1XLBook();
wb.Sheets.Add("Chart Data");
int _row = 1;
IList&DependencyObject& _itemNameList = new List&DependencyObject&();
VTreeHelper.GetChildrenOfType((_chart.View.AxisX as Panel), typeof(TextBlock), ref _itemNameList);
wb.Sheets[0][0, 0].Value = "Month";
foreach (var _itemNameObject in _itemNameList.ToList())
wb.Sheets[0][_row, 0].Value = (_itemNameObject as TextBlock).T
_row += 1;
foreach (DataSeries _dataSeries in _chart.Data.Children)
wb.Sheets[0][_row - 1, 1].Value = _dataSeries.N
IList&DependencyObject& _seriesChildObject = new List&DependencyObject&();
VTreeHelper.GetChildrenOfType((_dataSeries as Panel), typeof(Bar), ref _seriesChildObject);
foreach (var cvl in _seriesChildObject.ToList())
wb.Sheets[0][_row, 1].Value = (cvl as Bar).DataPoint.V
_row += 1;
以上只是一个实现办法，仅供参考。我相信程序猿们在面对不同需求时，还会有各自的修改和实现办法。根据不同的要求，获取不同的值。完整示例请参考如下Demo：
阅读(...) 评论()}