189 8069 5689
加一个Picture控件，AutoRedraw = true，BackColor=白，ScaleMode= 3-pixel
成都创新互联公司于2013年成立，公司以网站制作、网站建设、系统开发、网络推广、文化传媒、企业宣传、平面广告设计等为主要业务，适用行业近百种。服务企业客户超过千家，涉及国内多个省份客户。拥有多年网站建设开发经验。为企业提供专业的网站建设、创意设计、宣传推广等服务。 通过专业的设计、独特的风格，为不同客户提供各种风格的特色服务。
然后把数据放到数组里面，我的程序里面数组叫 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
可以生成图表，图表中的数据源用下面的代码在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
尾与
尾子
你的操作是想点击一个按钮，打开IE浏览器，然后IE浏览器的内容是你之前编辑过的数据以图表的形式存在，是吗
如果是这样，可以这样做，在你的程序目录建立一个Excel文件，用VB打开这个Excel文件，然后向里面写入数据，数据写好后，用VB控制这个Excel文件生成柱状图并保存成网页的格式的文件，比如data.html
然后点击那个按钮，用IE浏览器来打开这个data.html，这样就得到你想要的效果了，其实VB和Excel里的VBA配合起来，还是很简单的，有不明白的Hi我
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以实现各种图形，什么饼，柱，三角，线，都可以。而且可以是立体的。
chart控件和timer控件，用timer控件触发chart控件中系列数据的更新。