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

用下面代码可以在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

''''''''''''''''''''''''''''''''''''''''