看到有段VBA和Excel的代码。想画出一个三维的曲面图。
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("B2:D5") '图表数据源 'ws.ChartObjects.Delete'删除工作表上已经存在的图表 Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(100,30,400,250) '创建图表对象 Dim Cht As MSExcel.Chart = Co.Chart Cht.ChartType = MSExcel.XlChartType.xlSurface '图表类型 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
With Cht.Axes(MSExcel.XlAxisType.xlCategory) '获取X轴 .HasTitle = True .AxisTitle.Text = "时间序列" '添加标题 .HasMajorGridlines = True '显示主要网格线 .HasMinorGridlines = True '显示次要网格线 End With With Cht.Axes(MSExcel.XlAxisType.xlValue) '获取Y轴 .HasTitle = True .AxisTitle.Text = "销售量" '添加标题 .HasMajorGridlines = True'显示只要网格线 .HasMinorGridlines = True'显示次要网格线 End With
With Cht.Axes(MSExcel.XlAxisType.xlSeriesAxis) '获取Y轴 .HasTitle = True .AxisTitle.Text = "销售量2" '添加标题 .HasMajorGridlines = True'显示只要网格线 .HasMinorGridlines = True'显示次要网格线 End With
|