ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   2 different fonts in chart title? (https://www.excelbanter.com/excel-programming/396806-2-different-fonts-chart-title.html)

faberk

2 different fonts in chart title?
 
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




Barb Reinhardt

2 different fonts in chart title?
 
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




faberk

2 different fonts in chart title?
 
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





All times are GMT +1. The time now is 10:08 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com