Question

怎样用VBA代码画柱状图？望各位赐教，谢谢！

Excel中有如下的表格。现在要用VBA代码画两幅柱形图，两幅图的X轴都为人名，第一幅图的Y轴为TotalScore，第二幅图的Y轴为CurrentWorkload。
怎样实现？望各位大虾指教，谢谢！
Engineer TotalScore CurrentWorkload
张三 140 12.19047642
李四 36 0
王五 80 0
赵六 37 0

Answer 1

把你的数句拷贝到sheet1的A1到C5，程序如下。图的位置需要手动调整
Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B5"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A5,C1:C5"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "CurrentWorkload"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

追问

多谢赐教。该问题按照您的建议已解决，不过我还有一个新问题：上述代码生成的图表压在其他数据之上，我想要把图表放在指定位置，例如图表的左上角放在B10单元格上，而且想调整其大小。能否实现？多谢！

追答

可以实现的，不过问题是要根据你的具体情况来修改。因为，好像不能通过单元格位置来定位。只能用坐标位置来调整位置。把你的表发给我。bd.excelclub@gmail.com