Is it possible to define a different font to each line in a chart title?
Here is the code I'm using to assign the value to the chart title text:

ActiveChart.ChartTitle.Text = "Pre-shipment Inspection Faults" &
vbLf & _
rst.Fields(0).Value & ": " & rst.Fields(1).Value

How about something like this?

Title1 = "New Title1"
Title2 = "New Title2"
Title = Title1 & Chr(10) & Title2
ActiveChart.ChartTitle.Text = Title
With ActiveChart.ChartTitle.Text
With .Characters(Start:=1, Length:=Len(Title1)).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 20
End With
With .Characters(Start:=Len(Title1) + 1, Length:=Len(Title)).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 12
End With
End With

--
HTH,
Barb Reinhardt



"faberk" wrote:

> Is it possible to define a different font to each line in a chart title?
> Here is the code I'm using to assign the value to the chart title text:
>
> ActiveChart.ChartTitle.Text = "Pre-shipment Inspection Faults" &
> vbLf & _
> rst.Fields(0).Value & ": " & rst.Fields(1).Value
>
>
>

U rock Barb thanks...

"Barb Reinhardt" wrote:

> How about something like this?
>
> Title1 = "New Title1"
> Title2 = "New Title2"
> Title = Title1 & Chr(10) & Title2
> ActiveChart.ChartTitle.Text = Title
> With ActiveChart.ChartTitle.Text
> With .Characters(Start:=1, Length:=Len(Title1)).Font
> .Name = "Arial"
> .FontStyle = "Bold"
> .Size = 20
> End With
> With .Characters(Start:=Len(Title1) + 1, Length:=Len(Title)).Font
> .Name = "Arial"
> .FontStyle = "Bold"
> .Size = 12
> End With
> End With
>
> --
> HTH,
> Barb Reinhardt
>
>
>
> "faberk" wrote:
>
> > Is it possible to define a different font to each line in a chart title?
> > Here is the code I'm using to assign the value to the chart title text:
> >
> > ActiveChart.ChartTitle.Text = "Pre-shipment Inspection Faults" &
> > vbLf & _
> > rst.Fields(0).Value & ": " & rst.Fields(1).Value
> >
> >
> >