用下面代码可以在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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Macro1()
'
' Macro1 Macro
' 宏由 xtu 录制,时间: 2013/5/17
'
'
'Selection.ColumnWidth = 18.38