请参考下面的实例选择属性
Sub InsertBarChart()
' 假设已经有一个名为Sheet1的工作表，并且在其中有一些数据
Dim cht As ChartObject
' 添加一个新的图表对象
Set cht = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
' 设置图表的数据源区域，这里假设数据在A1:B5
With cht.Chart
.SetSourceData Source:=Range("A1:B5")
' 设置图表类型为柱状图
.ChartType = xlBarClustered
' 设置图表的其他属性（例如标题等）
.HasTitle = True
.ChartTitle.Text = "柱状图示例"
End With
End Sub
创作者俱乐部成员