Code: Select all
With ActiveChart
.ChartTitle.Select
Selection.AutoScaleFont = False
With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 12
.Color = 0
.ForeColor.RGB = RGB(0, 0, 0)
End With
End With
Again, in 2003 I could figure out most things simply by recoding the actions, when I record now, I get completely different code
(Oh, by the way, this one is tested with VBA2010; I'll check tomorrow what 2007 does)