重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
加一个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控件中系列数据的更新。