Chart titles with varied font sizes

[colene]

I do create a 2 line chart titly thru VBA ..Now i want to have a bigger font size for line 1 than line 3.how can i do this


Set chtChart = Charts(1)
chtChart.ChartTitle.Text = line1 & Chr(10) & line2

[Bob Phillips]

Set chtChart = ActiveSheet.ChartObjects(1).Chart
With chtChart.ChartTitle
.Text = line1 & Chr(10) & line2
.Characters(7, 6).Font.Size = 16
End With

[colene]

Thanks a lot ..Works great

[colene]

Set chtChart = Charts(1)
With chtChart.ChartTitle
.Text = mytitle
' to increase the font size of line 1
.Characters(0, Len(line1)).Font.Size = 14
End With
The solution is fine when i activate the chart for the first time .but when i switch back to the sheet and come to the chart again ..all the lines have the font size as of Line 1

[Bob Phillips]

I don't get this problem. Your code looks wrong to me as well, what platform are you on?

[colene]

I am using M/S office Professional edition 2003 on XP professional .Also the chart is there as new sheet and not as a object of the sheet which has the table



mytitle = line1 & Chr(10) & line2 & projDet & Chr(10) & filterDet
Set chtChart = Charts(1)
With chtChart.ChartTitle
.Text = mytitle
' to increase the font size of line 1
.Characters(0, Len(line1)).Font.Size = 14
End With

[colene]

With chtChart.ChartTitle
.Text = mytitle
' to increase the font size of line 1
.Characters(0, Len(line1)).Font.Size = 14
.Characters(Len(line1) + 1, Len(mytitle)).Font.Size = 12
End With

i did so then it seems good for me