你的操作是想点击一个按钮，打开IE浏览器，然后IE浏览器的内容是你之前编辑过的数据以图表的形式存在，是吗
10年积累的成都网站建设、成都做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有新丰免费网站建设让你可以放心的选择与我们合作。
如果是这样，可以这样做，在你的程序目录建立一个Excel文件，用VB打开这个Excel文件，然后向里面写入数据，数据写好后，用VB控制这个Excel文件生成柱状图并保存成网页的格式的文件，比如data.html
然后点击那个按钮，用IE浏览器来打开这个data.html，这样就得到你想要的效果了，其实VB和Excel里的VBA配合起来，还是很简单的，有不明白的Hi我
可以生成图表，图表中的数据源用下面的代码在A7：G13位置sheet2的表A1：B5
在指定的位置图（子）
设置AB =范围（“A7： G13）'生成图表位置
设为BBB = ActiveSheet.ChartObjects.Add（0，0，0，0）
bbb.Chart.ChartType = xlColumnClustered的柱形图
bbb.Chart。数据源SetSourceData来源：=表（“Sheet2的”）范围（“A1：B5”）'
BBB
= ab.Top
左= ab.Left，
。的宽度= ab.Width
高度= ab.Height
尾与
尾子
chart控件和timer控件，用timer控件触发chart控件中系列数据的更新。
加一个Picture控件，AutoRedraw = true，BackColor=白，ScaleMode= 3-pixel
然后把数据放到数组里面，我的程序里面数组叫 datainput
代码给你， 你自己去微调吧
Private Type Bar
BarName As String
BarData(1 To 3) As Integer
End Type
Dim dataInput(10) As Bar
Dim dataInputCount As Integer
Const XXX = 10
Const YYY = 100
Private Sub Command4_Click()
dataInputCount = 3
dataInput(1).BarName = "2001"
dataInput(1).BarData(1) = "10"
dataInput(1).BarData(2) = "20"
dataInput(1).BarData(3) = "30"
dataInput(2).BarName = "2002"
dataInput(2).BarData(1) = "15"
dataInput(2).BarData(2) = "25"
dataInput(2).BarData(3) = "35"
dataInput(3).BarName = "2003"
dataInput(3).BarData(1) = "18"
dataInput(3).BarData(2) = "28"
dataInput(3).BarData(3) = "38"
Dim i As Integer
Dim j As Integer
For i = 1 To dataInputCount
For j = 1 To 3
Select Case j
Case 1: Picture1.ForeColor = vbRed
Case 2: Picture1.ForeColor = vbGreen
Case 3: Picture1.ForeColor = vbBlue
End Select
Picture1.Line (XXX + i * 50 + j * 10, YYY)-(XXX + i * 50 + j * 10 + 5, YYY - dataInput(i).BarData(j)), , BF
Next j
Next i
End Sub
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以实现各种图形，什么饼，柱，三角，线，都可以。而且可以是立体的。
