c#实现EXCEL自动绘制图表

最近再做问卷的自动处理程序,研究了一个星期的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)

这个编译通不过,不知道怎么回事

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值