Question

Excel图表中标题的字体大小如何在VBA中修改

在Excel2007中，有Excel表中的数据绘制的折线图的标题默认情况下是“宋体，字体大小为18”，怎么通过VBA修改这个标题的字体大小呢？通过工具栏按钮可以修改，但是通过VBA怎么修改呢？自己试着用录制宏查看是如何修改，结果，录制的宏只有选择，活动之类的动作，没有设置字体大小的动作。高手给看看！如下是我录制的宏。
Sub Macro5()
'
' Macro5 Macro
'

'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("DAILY!$C$2:$G$8")
ActiveChart.ChartType = xlLineMarkers
ActiveChart.ApplyLayout (3)
'在这里我对标题的字体由18设置为10，结果没有录下来:(
End Sub

Answer 1

可以的，选中图表的标题，单击格式菜单，选中图表标题项，即可做相应的字体字号修改。我录制的代码如下：希望能有帮助
Sub ww()
'
' ww Macro
' 宏由 xiaowei 录制，时间: 2009-10-6
'

'
ActiveChart.ChartTitle.Select
Selection.Top = 8
Selection.AutoScaleFont = True
With Selection.Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 43
.Background = xlAutomatic
End With
End Sub

Answer 2

我录制出来的有（选中图表中的标题，通过工具栏上的字号直接更改的）。
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "Test for LifeDebug"
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=18).Font
.Name = "宋体"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With