office教程office教程

office办公学习网
office办公学习网(www.168361.com)是自己整理的一些文章,用于自己学习office使用,如果侵犯了您的版权,请联系我们删除。网站包含office/word/wps等使用技巧大全全集,office百科全书

4.7.1.2 宏录制正弦曲线的代码分析

    宏录制完成,现在进去看看它们到底都干了些什么。
    按下AIt+FI 1键,进入VB编辑器,来看看刚才录制的宏代码.如图4.11所示。
    粗略看一下,代码基本都是对ActiveChart属性的设置。下面来对照上一节的操作步骤,
    逐条分析代码的实际意义。
    (1)上一节的操作步骤(3)对应以下两条语句:
    Range("A2:Dl4一).Select
    Charts.Add
    它表示先选择区域2014.然后执行插入命令,插入了一个图表。而代码则通过添加
    一个Chart对象来实现。用的是Charts对象集合的Add方法。
    (2)上一节的操作步驭(4)对应以下语句:
    ActiveChart.ChartType‘xlXYScatterSmooth
    实际操作的11的是将图表类型设置为平滑线散点图,而代码则通过设置ActiveChart的
    ChartType属性来实现.ChartType属性的介绍和XlChartType类型表见下一节.
    (3)上一节的操作步骤(5)对应以下语句:
    ActiveChart.SetSourceData Source:-Sheets("Sheetl").Range("A2:D14"),
    PlotBy:=xlColumns
    当用户单击【下一步】按钮的同时,系统会自动根据选择区域识别为源数据区域。此
    过程使用的是Chart对象的SetSourceData,它将源数据区域设置为A2:D14,并指定数据绘制
    方式为xlColumns,也就是将系列产生在列上。
    (4)上一节的操作步骤(6)和(7)对应以下语句:
    ActiveChart.SeriesCollection(1).Name-一Sheetl!R1C2"
    ActiveChart.SeriesCollection(2).Name-一Sheetl!R1C3"
    ActiveChart.SeriesCollection(3).Name一"-Sheetl!R1C4"
    实际操作的意图是给每个系列指定名称。而代码中则是通过调用Chart对象的
    SeriesCollection方法来实现.通过SeriesCollection工i)返同数据系列,然后设置它的name属性
    值,就可以为系列指定名称。
    (5)上一节的操作步骤(9)对应以下语句:
    With ActiveChart
    .HasTitle二True
    .ChartTitle.Characters.Text一;x和y的关系.,
    .Axes(xlCategory, xlPrimary).HasTitle,True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text-"x值;
    .Axes(xlValue, xlPrimary).HasTitle一True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text一;y值.,
    End With"
    实际操作的意图是给图表对象及其内部设置标题。对于图表标题,代码中是通过设置
    ActiveChart的ChartTitle属性完成的。
    通过代码可以发现,梅个具有标题的对象都有一个HasTitle属性,此属性用来设置对象
    是否有标题,只有把IlasTitle属性设置为truell寸,才能给对象的标题赋值。
    而Axes方法则用来调用图表中的坐标轴对象,显然根据步骤(9)的操作,目的在于给
    x轴和y轴都加上标题,那么^Axes(xlCategory, xlPrimary)就应该返回x轴对象,Axes(xlValue,
    xlPrimary)则返回y轴对象。至于后面的语句AxisTitle.Characters.Text就应该是该对象的标题
    的文本属性了。
    (6)上一节的操作步骤(10)对应以下语句:
    ActiveChart.Location Where:-xlLocationAsObject, Name:-"Sheetl"
    操作的目的是将该图表作为其中对象插入工作表。而代码中显然是调用了Chart的
    Location属性,将其设茬在本工作表中,并命名为;Sheet 1 "。
    现在,相信结合以上的操作和分析.读者即便不能手写代码操作Chart对象,至少己经
    明白了甸部操作设置的是Chart对象的哪些属性,并应该可以修改以上代码,来实现图表转
    化功能的自动化。
    这种对不熟悉的对象采用录制宏学习的方法很有价值,因为它帮助开发者利用熟悉的
    操作来了解不熟悉的对象.加快了学习的速度和对该对象的理解深度。读者应该掌握它,
    井学会在遇到不熟悉的对象时,利用它完成设计。
    

本文链接:http://168361.com/excel/299.html

版权声明:内容均来源于互联网 如有侵权联系删除

最后编辑于:2015-03-24作者: excel教程

规划求解来计算最小化运输成本
给excel折线图添加标记点