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

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 = True
        .ChartTitle.Characters.Text = " plato "
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .Axes(xlCategory, xlSecondary).HasTitle = False
        .Axes(xlValue, xlSecondary).HasTitle = False
    End With
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlCategory, xlSecondary) = True
        .HasAxis(xlValue, xlPrimary) = True
        .HasAxis(xlValue, xlSecondary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
    ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlCategoryScale
    ActiveChart.HasDataTable = False
    ActiveChart.SeriesCollection( 1 ).Select
    ActiveChart.SeriesCollection( 1 ).ChartType = xlColumnClustered
    ActiveChart.SeriesCollection( 1 ).Select
    ActiveChart.SeriesCollection( 1 ).ApplyDataLabels AutoText: = True , LegendKey: = _
        False , ShowSeriesName: = False , ShowCategoryName: = False , ShowValue: = True , _
        ShowPercentage: = False , ShowBubbleSize: = False
    With ActiveChart.ChartGroups( 1 )
        .Overlap = 0
        .GapWidth = 0
        .HasSeriesLines = False
        .VaryByCategories = True
    End With
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = True
        .MaximumScale = 1
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.Axes(xlValue, xlSecondary).Select
    With ActiveChart.Axes(xlValue, xlSecondary)
        .MinimumScaleIsAuto = True
        .MaximumScale = 1
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlMaximum
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.Axes(xlCategory, xlSecondary).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlAutomatic
    End With
    With Selection
        .MajorTickMark = xlInside
        .MinorTickMark = xlNone
        .TickLabelPosition = xlNone
    End With
    With ActiveChart.Axes(xlCategory, xlSecondary)
        .Crosses = xlMaximum
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .AxisBetweenCategories = False
        .ReversePlotOrder = False
    End With
    ActiveChart.SeriesCollection( 2 ).Select
    ActiveChart.SeriesCollection( 2 ).ChartType = xlLineMarkers
    ActiveChart.SeriesCollection( 2 ).Select
    With ActiveChart.ChartGroups( 2 )
        .HasDropLines = False
        .HasHiLoLines = False
        .HasUpDownBars = False
        .VaryByCategories = True
    End With
    ActiveChart.Axes(xlCategory, xlSecondary).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlAutomatic
    End With
    With Selection
        .MajorTickMark = xlInside
        .MinorTickMark = xlNone
        .TickLabelPosition = xlNone
    End With
    ActiveChart.ChartArea.Select
End Sub

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

EXCEL宏代码大全
本文件部分文章来源于网络,文章版权归原作者所有,如果本站转载的文章侵犯了您的权益请及时联系我们,我们将尽快妥善处理.本站除部分特别声明禁止转载的专稿外,其他文章可以自由转载,但请务必注明原出处和作者. ...
Excel 宏代码实现按相同值分组设置背景颜色
Alt+F11,打开编辑器,按如下代码编写代码: Sub SetGroupBg()Dim i, j, cColors = Array("#CEFFCE", "#D7FFE ...
excel 宏把一个工作表按照某几个列拆分为多个工作表
前言 step 1 进入excel vba编程界面 step 2 粘贴代码 step 3 运行代码 step 4 删除宏代码前言这两天接触到excel比较多,才发现使用excel不仅仅是简单的复制 ...
excel 宏录制，宏代码查看
1.第一步第二部.查看宏代码第三步: 使用宏录制的好处可以查看操作代码,便于vsto编程.
Visio录制宏代码——重复批量导出600dpi的tiff图片
Visio录制宏,重复批量导出600dpi的tiff图片因为论文修改需要,需要对3×3×4=363\times3\times4=363×3×4=36张图片反复修改调整,然后将图片依次导出为600dp ...
excel宏根据表格自动计算机,Excel使用宏录制自动将输入内容排到另一张表的操作方法...
最近很多朋友咨询关于Excel使用宏录制自动将输入内容排到另一张表的操作方法,今天的这篇教程就来聊一聊这个话题,希望可以帮助到有需要的朋友. Excel使用宏录制自动将输入内容排到另一张表的操作方法 ...
Excel：录制简单的宏（三）
Excel:l录制简单的宏宏的概念录制宏宏的概念 "宏",指一系列Excel能够执行的VBA语句. 录制宏 1.打开要录制宏的工作簿,在开发工具中找到录制宏 2.点开录制宏, ...
[EXCEL] 宏的录制、调用和删除
目录什么是宏? 如何使用"宏"? 1.添加"开发工具"选项卡 2.录制宏 1)将选中的单元格停留在A1位置 2)点击"录制宏",设置宏名和 ...
编写高效Excel VBA代码的最佳实践(一)
很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...

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

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

最新文章

热门文章