two font sizes in chart title

**penfold1992** · 10-04-2012, 05:39 AM

I currently have this string in my macro script.

With Worksheets("Graphs").ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Text = "Sample Text" & Chr(10) & "Text Sample2"
    End With

But i would like the first part in size 18 font and the second part in size 14 font.
Is this possible?

thanks in advance

**Andy Pope** · 10-04-2012, 05:45 AM

Sub x()

    Dim strTitle As String
    Dim strSubTitle As String
    
    strTitle = "Sample Text"
    strSubTitle = Chr(10) & "Text Sample2"
    
    With Worksheets("Graphs").ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Text = strTitle & strSubTitle
        .ChartTitle.Characters(Len(strTitle) + 1, Len(strSubTitle)).Font.Size = 14
        .ChartTitle.Characters(1, Len(strTitle)).Font.Size = 18
    End With
End Sub