I have the following macro to modify a chart title if "mypattern" is changed.
I'm having one problem though. At the place where I have vbnewline in the
mypattern code, it appears that it's displaying 2 line breaks. How do I fix
this?

Thanks,
Barb Reinhardt

Public Sub SetChartTitle(WS As Worksheet, mypattern As String)
Dim objCht As ChartObject

mypattern = WS.Name & vbNewLine & "Division Target " & mypattern & " Days"
For Each objCht In WS.ChartObjects
With objCht
.Chart.ChartTitle.Text = mypattern
End With
Next objCht
End Sub

Hi,

It would appear that both CarriageReturn and LineFeed both cause a new line
in the title.
Use either vbCR or vbLF instead of vbNewLine

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Barb Reinhardt" wrote in message
...
I have the following macro to modify a chart title if "mypattern" is
changed.
I'm having one problem though. At the place where I have vbnewline in the
mypattern code, it appears that it's displaying 2 line breaks. How do I
fix
this?

Thanks,
Barb Reinhardt

Public Sub SetChartTitle(WS As Worksheet, mypattern As String)
Dim objCht As ChartObject

mypattern = WS.Name & vbNewLine & "Division Target " & mypattern & " Days"
For Each objCht In WS.ChartObjects
With objCht
.Chart.ChartTitle.Text = mypattern
End With
Next objCht
End Sub

Thanks, that did it!

"Andy Pope" wrote:

Hi,

It would appear that both CarriageReturn and LineFeed both cause a new line
in the title.
Use either vbCR or vbLF instead of vbNewLine

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Barb Reinhardt" wrote in message
...
I have the following macro to modify a chart title if "mypattern" is
changed.
I'm having one problem though. At the place where I have vbnewline in the
mypattern code, it appears that it's displaying 2 line breaks. How do I
fix
this?

Thanks,
Barb Reinhardt

Public Sub SetChartTitle(WS As Worksheet, mypattern As String)
Dim objCht As ChartObject

mypattern = WS.Name & vbNewLine & "Division Target " & mypattern & " Days"
For Each objCht In WS.ChartObjects
With objCht
.Chart.ChartTitle.Text = mypattern
End With
Next objCht
End Sub