Bolding Part Of A Title By Code....

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Here is a snippet of code I use when Opening a Workbook...

ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartTitle.Text = "ABC Total For " _
& Worksheets("TheChart").Range("Title").Value
ActiveChart.ChartArea.Select: ActiveChart.HasLegend = False

Can I BOLD "ABC" above AND the entry that's stored in the Named
Range "Title"???

TIA - Bob
 
Bob -

Try this:

Sub FormatTitle()
Const sPREFIX1 As String = "ABC "
Const sPREFIX2 As String = "Total For "

ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
& Worksheets("TheChart").Range("TheTitle").Value
ActiveChart.ChartTitle.Font.Bold = False
ActiveChart.ChartTitle.Characters(1, Len(sPREFIX1)).Font.Bold = True
ActiveChart.ChartTitle.Characters(1 + Len(sPREFIX1) +
Len(sPREFIX2)).Font.Bold = True
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______
 
Jon - I'm getting a runtime User-defined error for...

ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
& Worksheets("TheChart").Range("TheTitle").Value

TIA - Bob
 
1. Is a chart selected?
2. Does the selected chart have a title? I've inserted a line in the new
version of the macro, which should have been there anyway, just in case.:

Sub FormatTitle()
Const sPREFIX1 As String = "ABC "
Const sPREFIX2 As String = "Total For "

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
& Worksheets("TheChart").Range("TheTitle").Value
ActiveChart.ChartTitle.Font.Bold = False
ActiveChart.ChartTitle.Characters(1, Len(sPREFIX1)).Font.Bold = True
ActiveChart.ChartTitle.Characters(1 + Len(sPREFIX1) +
Len(sPREFIX2)).Font.Bold = True
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______
 
Jon - It STILL gives Error 1004 = User-defined error.

Here's my snippet...
Sheets("TheChart").Select
ActiveSheet.ChartObjects("Chart 4").Activate
Const sPREFIX1 As String = "ABC "
Const sPREFIX2 As String = "Total For "
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
& Worksheets("TheChart").Range("TheTitle").Value

It fails at the "last line" above..

TIA - Bob
 
Jon - It appears to be WORKING now.

Perhaps, when stepping thru (testing the Access-to-Excel
Automation), something caused the Error 1004. It's OK now.

THANK you - Bob
 
Step by step...

Is there a worksheet named "TheChart"?
Does it contain a range named "TheTitle"?
Insert a few temporary lines:

MsgBox sPREFIX1
MsgBox sPREFIX2
MsgBox Worksheets("TheChart").Range("TheTitle").Value

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______
 
Back
Top