网格线
网格线帮助用户查看元素对坐标轴的相对位置。
添加或删除网格线：
代码语言：javascript复制'添加网格线
cht.SetElement (msoElementPrimaryValueGridLinesMajor)
cht.SetElement (msoElementPrimaryCategoryGridLinesMajor)
cht.SetElement (msoElementPrimaryValueGridLinesMinorMajor)
cht.SetElement (msoElementPrimaryCategoryGridLinesMinorMajor)
'删除网格线
cht.Axes(xlValue).MajorGridlines.Delete
cht.Axes(xlValue).MinorGridlines.Delete
cht.Axes(xlCategory).MajorGridlines.Delete
cht.Axes(xlCategory).MinorGridlines.Delete改变网格线颜色：
代码语言：javascript复制cht.Axes(xlValue).MajorGridlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)更改网格线的透明度：
代码语言：javascript复制cht.Axes(xlValue).MajorGridlines.Format.Line.Transparency = 0.5图表标题
图表标题是在图表顶部的文本。所有的代码以cht开始，假设已经使用上面介绍的代码引用了图表。
显示或隐藏图表标题：
代码语言：javascript复制'显示图表标题
cht.HasTitle = True
'隐藏图表标题
cht.HasTitle = False修改图表标题文本：
代码语言：javascript复制cht.ChartTitle.Text = "我的图表标题"定位图表标题：
代码语言：javascript复制cht.ChartTitle.Left = 10
cht.ChartTitle.Top = 10格式化图表标题：
代码语言：javascript复制cht.ChartTitle.TextFrame2.TextRange.Font.Name = "Calibri"
cht.ChartTitle.TextFrame2.TextRange.Font.Size = 16
cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoTrue
cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoFalse
cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoTrue
cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoFalse图例
图表图例提供了用于标识图表中的每个系列的颜色键。
显示或隐藏图表图例：
代码语言：javascript复制'显示图例
cht.HasLegend = True
'隐藏图例
cht.HasLegend = False定位图例：
代码语言：javascript复制'定位图例
cht.Legend.Position = xlLegendPositionTop
cht.Legend.Position = xlLegendPositionRight
cht.Legend.Position = xlLegendPositionLeft
cht.Legend.Position = xlLegendPositionCorner
cht.Legend.Position = xlLegendPositionBottom
'允许图例与图表重叠
'False = 允许重叠, True = 不重叠
cht.Legend.IncludeInLayout = False
cht.Legend.IncludeInLayout = True
'移动图例到特定点
cht.Legend.Left = 20
cht.Legend.Top = 200
cht.Legend.Width = 100
cht.Legend.Height = 25
