[已解决]新建柱形图（修改录制的宏）

爱疯

mKk6omF3.rar (8.87 KB, 下载次数: 7)

2010-12-6 10:56 上传

点击文件名下载附件
新建柱形图（修改录制的宏）

最佳答案

月排行榜 / 总排行榜

amulee

2010-12-6 11:13

03里面是没有Shapes.AddChart的，注意。
这个应该是07的宏。

Sub Macro2()
    With Sheet1.Shapes.AddChart.Chart
        .SetSourceData Source:=Range("Sheet1!$A$1:$B$8")
        .ChartType = xlColumnClustered
        .Legend.Delete
        .ChartGroups(1).VaryByCategories = True
    End With
End Sub

跳转到最佳答案楼层

amulee

03里面是没有Shapes.AddChart的，注意。
这个应该是07的宏。

Sub Macro2()
    With Sheet1.Shapes.AddChart.Chart
        .SetSourceData Source:=Range("Sheet1!$A$1:$B$8")
        .ChartType = xlColumnClustered
        .Legend.Delete
        .ChartGroups(1).VaryByCategories = True
    End With
End Sub

Zipall

用索引代替名称

    n = ActiveSheet.ChartObjects.Count

    ActiveSheet.ChartObjects(n).Activate

    ActiveChart.ChartGroups(1).VaryByCategories = True

wayy

怪不得我执行出错呢。

这样改了下，也行。

    Range("A1:B8").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B8"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    ActiveSheet.ChartObjects.Select　'不用具体名称就可以了[em05]
    ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).VaryByCategories = True

爱疯

谢谢阿木！

学习了

[em27][em27]

爱疯

谢谢zip,yy!!

学习

[em04]