Excel图表中标题的字体大小如何在VBA中修改
来源:百度知道 编辑:UC知道 时间:2024/06/22 05:46:44
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
我录制出来的有(选中图表中的标题,通过工具栏上的字号直接更改的)。
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
可以的,选中图表的标题,单击格式菜单,选中图表标题项,即可做相应的字体字号修改。我录制的代码如下:希望能有帮助
Sub ww()
'
' ww Macro
' 宏由 xiaowei 录制,时间: 2009-10-6
'
'
ActiveChart.ChartTitle.Select
Selection.Top = 8
Selection.AutoScaleFont = True
With Selection.Font