在VB中使用VBA生成柱形图表怎么实现?

发布网友发布时间：2022-05-11 03:20

共2个回答

热心网友时间：2022-04-26 20:08

可以生成图表，图表中的数据源用下面的代码在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

尾与
尾子追问我想按照数据库中查询到的数据来生成图表，范围是根据查询结果来定的，该怎么做？

热心网友时间：2022-04-26 21:26

Sub 两列数据为例的动态柱形图()
ActiveSheet.ChartObjects(1).Select
With ActiveChart
.ApplyDataLabels ShowValue:=True
.SeriesCollection(1).Interior.ColorIndex = 36
For i = 1 To .SeriesCollection(1).Points.Count
If Val(.SeriesCollection(1).Points(i).DataLabel.Text) > Val(.SeriesCollection(2).Points(i).DataLabel.Text) Then _
.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
Next i
.ApplyDataLabels xlDataLabelsShowNone
End With
End Sub

更多图表知识请参阅：http://www.officefans.net/cdb/viewthread.php?tid=47078&highlight=VBA%2B%2B%B6%AF%CC%AC%2B%D6%F9%D0%CE%2B%CD%BC%B1%ED%2B%D7%D4%B6%AF