例：新建一个Chart，类型是折线图，数据取之于单元格Y41：Y45.显示主要栅格，并且设置字体样式。

Sub Chart()

    Charts.Add 
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("ScheduleBeforeNewYear").Range( _
        "Y41:Y45"), PlotBy:=xlColumns
    ActiveChart.Location where:=xlLocationAutomatic, Name:="ScheduleBeforeNewYear" 
    With ActiveChart 
        .HasTitle = True
        .ChartTitle.Text = "折线图"  
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory).AxisTitle.Text = "July Sales"  
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "haha"  

        .HasDataTable = True
    End With

    Dim ObjAxis
    For Each ObjAxis In ActiveChart.Axes
        ObjAxis.HasMajorGridlines = True
        ObjAxis.HasMinorGridlines = True
    Next

    With Selection.Font
        .Name = "宋体"
        .FontStyle = "倾斜"
        .Size = 17
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
End Sub

 

注释：

ChartType

XlChartType 类型:1.xlLine 折线图,

2.xlLineMarkersStacked 堆积数据点折线图

3.xlLineStacked 堆积折线图

4.xlPie 饼图

SetSourceData(Source,PlotBy)

Source  ：Range 类型。包含源数据的区域。

PlotBy  ：Variant 类型。指定数据绘制方式。xlColumns(数据系列在行中)，xlRows（数据系列在列中）。

 

Location(Where,Name)

Where:1.xlLocationAutomatic  Excel控制图表位置

       2.xlLocationAsNewSheet 将图表移动到新工作表

       3.xlLocationAsObject   将图表嵌入到现有工作表中

 

Axes(Type, AxisGroup)

Type ：Variant 类型。指定要返回的坐标轴。可为以下 XlAxisType 常量之一：xlValue垂直轴、xlCategory 水平轴或 xlSeriesAxis（xlSeriesAxis 仅对三维图表有效）。

AxisGroup ：XlAxisGroup 类型。指定坐标轴组。如果省略本参数，则使用主坐标轴组。三维图表仅有一个坐标轴组。

 

添加网格线: HasMajorGridlines 如果坐标轴有主要网格线，则该值为 True。

             HasMinorGridlines 如果坐标轴有次要网格线，则该值为 True。

 

Chart 对象的常用属性：1.BackWall     对三维图表的背景墙进行格式设置

                       2.ChartArea    图表的整个图表区

                       3.ChartStyle   设置图表的样式（1--48之间的数值）

                       4.ChartTitle   指定图表的标题

                       5.ChartType    设置图表的类型

                       6.DataTable    表示此图表的数据表

                       7.HasAxis      设置图表上的坐标轴

                       8.HasDataTable 是否后数据表

                       9.Visible      确定是否可见

                      10.Walls        设置背景墙

Font 对象字体常用属性：1.Name               返回或设置对象的名称
                        2.FontStyle          返回或设置字体样式。
                        3.Size               返回或设置字体的大小。
                        4.Strikethrough      如果文字中间有一条水平删除线，则该值为 True。
                        5.Superscript        如果字体格式设为上标字符，则该值为 True
                        6.Subscript          如果字体格式设为下标字符，则该值为 True
                        7.OutlineFont        如果指定的字体是空心字体，则该值为 True。
                        8.Shadow             如果字体为带阴影字体或者对象有阴影，则该值为 True
                        9.Underline          返回或设置应用于字体的下划线类型。
                       10.ColorIndex         返回或设置字体的颜色。
                       11.Background         返回或设置背景色。

 

更多例子在：http://wenku.baidu.com/view/691385dc7f1922791688e80b.html