Manipulating a Characters object

[RobBroekhuis]

Hi,
I'm trying to create an axis title from the value of a worksheet cell, including the formatting that is present in the cell. I can't figure out what I'm doing wrong. My code is:

   dim Attl as Axistitle
   set Attl=activechart.axes(xlvalue).axistitle
   Attl.Characters.Text = cell
   For j = 1 To Len(cell)
      With Attl.Characters(j).Font
         .Name = cell.Characters(j).Font.Name
         .Subscript = cell.Characters(j).Font.Subscript
         .Superscript = cell.Characters(j).Font.Superscript
      End With
   Next j

This properly assigns the value in the cell to the axistitle, but the formatting is lost. What am I missing?
Rob

 

[logius]

This might work:

Dim MyCellFormat As Variant

MyCellFormat = cell.FormatConditions
Attl.Characters.Text = WorksheetFunction. _
                       Text(cell, MyCellFormat)

Comment out all the code after the

Set

statement and toss this in. ----------------------------------------
If you are reading this, then you have read too far...

lightwarrior@hotmail.com