怎样使用VBA编辑标题？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 辑编标题()

With ActiveChart
    .HasTitle=True
    .ChartTitle.Text="四维公司产量表"   '修改图表标题
    .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                                                      '显示横坐标
    .SetElement (msoElementPrimaryValueAxisTitleVertical)  '显示纵坐标
    .Axes(xlCategory, xlPrimary).AxisTitle.Text="组别"    '横坐标标题
    .Axes(xlValue, xlPrimary).AxisTitle.Text="产量"      '纵坐标标题
    .PlotArea.Top=20                                    '绘图区上边距
    .PlotArea.Height=85                                 '绘图区高度
    .ChartTitle.Select                                    '选择图表标题
    With Selection.Font
      .Size=10                                        '设置字体大小
      .ColorIndex=3                                   '设置字体颜色
    End With
  End With
End Sub

5、选择图表，用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，图表已添加标题