最近再做问卷的自动处理程序,研究了一个星期的EXCEL图表,终于实现了大部分想要的功能(选定数据区域绘制图表、图表位置的调整、图表样式的调整),以下为图表绘制部分的主要代码,备忘一下(chart放在选定数据区域的正下方,缺省大小、采用EXCEL 2007最漂亮的三维样式)。

 

        //要先在程序中引用Microsoft Excel 12.0 Object Library
        
using Microsoft.Office.Interop.Excel;



        
//sheet,数据所在工作表;oResizeRange,数据区域(可以包含标题);chartType,图表类型;alter,数据行列切换开关
        private void autoDrawChart(Worksheet sheet, Range oResizeRange, XlChartType chartType, XlRowCol alter,string title)
        
{
            
//创建图表
            Chart newchart = (Chart)((Workbook)sheet.Parent).Charts.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing);
            newchart.ChartWizard(oResizeRange, chartType, 
6, alter, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
            
//移动图表到数据所在工作表
            newchart.HasTitle = true;
            
if (title != "")
            
{
                
try
                
{
                    newchart.ChartTitle.Text 
= title;
                }

                
catch (Exception e)
                
{
                    
//郁闷,Chart设置Title有时是好的,有时候出错,不知道是哪里出了问题,只好截获异常处理。似乎是HasTitle的赋值有时不成功。
                }

            }

            
//如果是单行的柱状图,不显示序列值,并依数据点着色
            if (chartType == XlChartType.xlColumnClustered)
            
{
                newchart.HasLegend 
= false;
                ((ChartGroup)newchart.ChartGroups(
1)).VaryByCategories = true;
            }


            
//设置图表样式为彩色三维样式
            newchart.ChartStyle = 26;
            newchart.Location(XlChartLocation.xlLocationAsObject, sheet.Name);
            
//移动位置到相关数据的正下方
            ChartObject curshape = (ChartObject)sheet.ChartObjects(sheet.Application.ActiveChart.Name.Replace(sheet.Name + " """));
            curshape.Left 
= Single.Parse(oResizeRange.Left.ToString());
            curshape.Top 
= Single.Parse(oResizeRange.Top.ToString()) + Single.Parse(oResizeRange.Height.ToString());
            
//改成圆角图表
            curshape.RoundedCorners = true;
        }

Excel 2003代码基本相同,但是

            //设置图表样式为彩色三维样式
            newchart.ChartStyle = 26;

这个是用不了的,03里面没有三维彩色样式,好像ChartSytle都没有。另外

if (chartType == XlChartType.xlColumnClustered)
这个编译通不过,不知道怎么回事
发表于: 2008-02-19 17:33 肉香鱼丝 阅读(16856) 评论(8) 收藏 好文推荐

本博客所有内容,若无特殊声明,皆为博主原创作品,未经博主授权,任何人不得复制、转载、摘编等任何方式进行使用和传播。

作者该类其他博文:

网站相关博文:

# re: c#实现EXCEL自动绘制图表
引用
2008-02-21 09:00 | buffon | 1楼
看不懂。谢谢。
# re: c#实现EXCEL自动绘制图表
你好你的能通过我也研究了几天,想把数据和图表放 一起 一直没找到好的有高手请发我邮箱31314336@qq.com
# re: c#实现EXCEL自动绘制图表
引用
2008-08-01 14:08 | jiji0815 | 3楼
chart缺省大小是哪段控制的???
# re: c#实现EXCEL自动绘制图表
图表的大小如何设置呢?自动生成的不合适,我想调大一些
# re: c#实现EXCEL自动绘制图表
引用
2009-03-19 09:06 | 走在PDM的路上 | 5楼
内容很好,不知道怎么用,没有研究过这方面,最近正在学习。
支持!
# re: c#实现EXCEL自动绘制图表
我在调这 XlChartType.xlColumnClustered 画图时也出错
# re: c#实现EXCEL自动绘制图表
正在做这方面的东西,找到了这里,哈哈,下下来,用一用,谢谢分享!
# re: c#实现EXCEL自动绘制图表
我用的是spire.xls, 用Chart.Add()方法就可以随意选择chart类型并添加图表

Chart chart = ws.Charts.Add(ExcelChartType.ColumnClustered);
chart.DataRange = ws.Range["A1:C5"];

详细步骤可以看看:http://www.cnblogs.com/Yesi/p/4241593.html

发表评论(网友发言只代表个人观点,不代表本网站观点或立场。)

您尚未登录,请先【登录或注册