Question

怎么用VBA在excel中指定位置画图表？ 如怎么用VBA在 A7：G13位置画出图标

Answer 1

用下面代码可以在A7:G13位置生成图表，图表的数据源是sheet2表的A1:B5
Sub 在指定位置生成图表()
Set ab = Range("a7:g13") '生成图表的位置
Set bbb = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)
bbb.Chart.ChartType = xlColumnClustered '柱形图
bbb.Chart.SetSourceData Source:=Sheets("Sheet2").Range("A1:B5") '数据源
With bbb
.Top = ab.Top
.Left = ab.Left
.Width = ab.Width
.Height = ab.Height
End With
End Sub