一段自己录制的Excel宏代码（画柏拉图）

最新推荐文章于 2021-01-13 21:56:09 发布

Hziee我行我素

最新推荐文章于 2021-01-13 21:56:09 发布

阅读量5.8k

点赞数

分类专栏： .NET 文章标签： excel c

本文链接：https://blog.csdn.net/grace200488/article/details/1678678

版权

这篇博客展示了如何使用Excel宏代码创建线-柱图。宏由grace录制，详细记录了从添加图表到设置各类轴、标签、数据系列等步骤，包括解决Excel自动生成的宏代码中缺少的`AxisGroup`设置问题。

摘要由CSDN通过智能技术生成

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 =