Hi,
It might be a simple question. I spent quite some time but the font size just won't change using code like the following; for 2007, I won't have this kind of problems.
Thanks in advance.
Sub FixFont()
With ActiveSheet.ChartObjects(1).Chart.DataTable.Font
.Name = "calibri narrow"
.FontStyle = "Regular"
.Size = 7
End With
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "calibri narrow"
.FontStyle = "Regular"
.Size = 7
End With
End Sub
It might be a simple question. I spent quite some time but the font size just won't change using code like the following; for 2007, I won't have this kind of problems.
Thanks in advance.
Sub FixFont()
With ActiveSheet.ChartObjects(1).Chart.DataTable.Font
.Name = "calibri narrow"
.FontStyle = "Regular"
.Size = 7
End With
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "calibri narrow"
.FontStyle = "Regular"
.Size = 7
End With
End Sub