测试帮助2346页excel图表时出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果文件没有图表，调用删除就会出错

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表

Dim Rg As MSExcel.Range = Ws.Range("A2:B18") '图表数据源

try

ws.ChartObjects.Delete'删除工作表上已经存在的图表

catch

End try

Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(100,30,400,250) '创建图表对象

Dim Cht As MSExcel.Chart = Co.Chart

Cht.ChartType = MSExcel.XlChartType.xlLineMarkers'图表类型

Cht.SetSourceData(Rg,MSExcel.XlRowCol.xlColumns) '指定数据源和绘图方式

Cht.HasTitle = True

Cht.ChartTitle.Text = "测试图表标题"

With Cht.ChartTitle.Font '设置标题字体

.Size = 16

.ColorIndex = 3

.Name = "隶书"

End With

App.Visible = True

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	测试帮助2346页excel图表时出错 Post By：2017/2/16 16:26:00 [只看该作者] 用户已被锁定

主题：测试帮助2346页excel图表时出错