扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
你的操作是想点击一个按钮,打开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空件可以实现各种图形,什么饼,柱,三角,线,都可以。而且可以是立体的。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流