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

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

尾与

尾子

假设生成图扒散表的工作表是sheet3工作春键氏表

Sub 图表()

Set a = Range("e22")

Set b = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)

With b

.Chart.ChartType = xlColumnClustered

.Chart.SetSourceData Source:=Sheets("sheet3").Range("B19:F20"亮漏)

.Top = a.Top

.Left = a.Left

.Width = a.Width

.Height = a.Height

End With

End Sub

---