Thread: Bolding Part Of A Title By Code....

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/
_______

Bob Barnes wrote:

> 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
>

Jon - THANK you.

You are a Chart ACE.

I was wondering if you would see & reply.

Bob

"Jon Peltier" wrote:

> 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/
> _______
>
> Bob Barnes wrote:
>
> > 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
> >
>

Jon - I'm getting a runtime User-defined error for...

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

TIA - Bob

"Jon Peltier" wrote:

> 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/
> _______
>
> Bob Barnes wrote:
>
> > 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
> >
>

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/
_______



Bob Barnes wrote:

> Jon - I'm getting a runtime User-defined error for...
>
> ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
> & Worksheets("TheChart").Range("TheTitle").Value
>
> TIA - Bob
>
> "Jon Peltier" wrote:
>
>
>>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/
>>_______
>>
>>Bob Barnes wrote:
>>
>>
>>>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
>>>
>>

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 Peltier" wrote:

> 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/
> _______
>
>
>
> Bob Barnes wrote:
>
> > Jon - I'm getting a runtime User-defined error for...
> >
> > ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
> > & Worksheets("TheChart").Range("TheTitle").Value
> >
> > TIA - Bob
> >
> > "Jon Peltier" wrote:
> >
> >
> >>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/
> >>_______
> >>
> >>Bob Barnes wrote:
> >>
> >>
> >>>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
> >>>
> >>
>

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

"Bob Barnes" wrote:

> 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 Peltier" wrote:
>
> > 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/
> > _______
> >
> >
> >
> > Bob Barnes wrote:
> >
> > > Jon - I'm getting a runtime User-defined error for...
> > >
> > > ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
> > > & Worksheets("TheChart").Range("TheTitle").Value
> > >
> > > TIA - Bob
> > >
> > > "Jon Peltier" wrote:
> > >
> > >
> > >>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/
> > >>_______
> > >>
> > >>Bob Barnes wrote:
> > >>
> > >>
> > >>>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
> > >>>
> > >>
> >

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/
_______


Bob Barnes wrote:

> 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 Peltier" wrote:
>
>
>>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/
>>_______
>>
>>
>>
>>Bob Barnes wrote:
>>
>>
>>>Jon - I'm getting a runtime User-defined error for...
>>>
>>>ActiveChart.ChartTitle.Text = sPREFIX1 & sPREFIX2 _
>>>& Worksheets("TheChart").Range("TheTitle").Value
>>>
>>>TIA - Bob
>>>
>>>"Jon Peltier" wrote:
>>>
>>>
>>>
>>>>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/
>>>>_______
>>>>
>>>>Bob Barnes wrote:
>>>>
>>>>
>>>>
>>>>>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
>>>>>
>>>>