Question

vb excel图表

是VB，不是VBA
我用vb计算一些数据，输出到EXCEL中，现在我想再加写语句，直接在excel中用输出地数据生成一个图表，圆滑曲线那条并且命名一下那个曲线

Answer 1

你表述的也不是太明确。

“现在我想再加写语句” 就是画图的问题了吧

以下是VB对Excel批处理中的一段

（VB 对Excel中E（Y轴）、F（X轴）列有数据的单元格进行画图表）

Dim xlapp As Excel.Application

Dim Book As Excel.Workbook

Dim Sheet As Excel.Worksheet

Book.Sheets(cc).Range("E:E").Select’

a = Book.ActiveSheet.UsedRange.Rows.Count‘统计有数据的单元格个数

aa = "E1:E" + Trim(Str(a))

bb = "F1:F" + Trim(Str(a))

   Book.Charts.Add

   Book.ActiveChart.ChartType = xlLine  ‘我的是画折线图

   Book.ActiveChart.SetSourceData Source:=Book.Sheets(cc).Range(aa), PlotBy _

        :=xlColumns

   Book.ActiveChart.SeriesCollection(1).XValues = Book.Sheets(cc).Range(bb)

   Book.ActiveChart.Location Where:=xlLocationAsObject, Name:=cc

With Book.ActiveChart

    .HasTitle = True

    .ChartTitle.Characters.Text = dd ’给图表命名，你自己给

    .Axes(xlCategory, xlPrimary).HasTitle = False

    .Axes(xlValue, xlPrimary).HasTitle = False

有不会的代码就通过宏去录制（多用用宏去录制），复制来的代码要处理下，对象一定要有唯一性。

就像Book.Sheets(cc).Range("E:E").Select  和 Range("E:E").Select 在VB二次运行中，差别就大多了。否则无法程序二次运行。

希望你能从中得点启发。

Answer 2

没这个必要,把EXCEL淘汰掉用SQL吧,或者把EXCEL做成一个数据源,放在后台管他干吗,用VB做一个查询分析器,在里面设计一个公式计算界面,很简单的操作,最后把你的条件加载一个查询或者几个,在窗体里面做一个透视图,把数据源指向查询就好了,你只要加载就给图表,或者给个TIMER让他自动刷新,都用VB了还去弄个EXECL那不是大才小用吗?

追问

有相关演示例子给一个么
omig001@yahoo.com.cn

Answer 3

用宏记录一下EXCEL操作过程，然后用VB写