Sub
Macro2()
'
' Macro2 Macro
' 宏由 grace 录制,时间: 2007-7-4
'
'
Charts.Add
ActiveChart.ApplyCustomType ChartType: = xlBuiltIn, TypeName : = " 线-柱图 "
ActiveChart.SetSourceData Source: = Sheets( " Sheet2 " ).Range( " I26 " )
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection( 1 ).XValues = " =Sheet2!R3C1:R10C1 "
ActiveChart.SeriesCollection( 1 ).Values = " =Sheet2!R3C3:R10C3 "
ActiveChart.SeriesCollection( 2 ).Values = " =Sheet2!R2C4:R10C4 "
ActiveChart.SeriesCollection( 2 ).AxisGroup = 2 'Excel自动生成的宏代码中没有这一行,执行时会出现“方法Axes作用于对象_Chart时失败”的错误信息。加上这一句就可以了
ActiveChart.Location Where: = xlLocationAsObject, Name: = " Sheet2 "
With ActiveChart
.HasTitle =
'
' Macro2 Macro
' 宏由 grace 录制,时间: 2007-7-4
'
'
Charts.Add
ActiveChart.ApplyCustomType ChartType: = xlBuiltIn, TypeName : = " 线-柱图 "
ActiveChart.SetSourceData Source: = Sheets( " Sheet2 " ).Range( " I26 " )
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection( 1 ).XValues = " =Sheet2!R3C1:R10C1 "
ActiveChart.SeriesCollection( 1 ).Values = " =Sheet2!R3C3:R10C3 "
ActiveChart.SeriesCollection( 2 ).Values = " =Sheet2!R2C4:R10C4 "
ActiveChart.SeriesCollection( 2 ).AxisGroup = 2 'Excel自动生成的宏代码中没有这一行,执行时会出现“方法Axes作用于对象_Chart时失败”的错误信息。加上这一句就可以了
ActiveChart.Location Where: = xlLocationAsObject, Name: = " Sheet2 "
With ActiveChart
.HasTitle =