怎样使用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调出运行宏窗口，然后单击“执行”按钮，图表已添加标题