Superscript only a portion of a data label, using VBA

Try I don't know what the variables Length2 and Length1 stand for, but the line
works fine for me using absolute values in Excel 2010.

I have done that and it makes the whole string superscript.

Could you provide an example of what the strings you want to change look like and what the values for Length1 and Length2 are?

What I am trying to do:

• User selects a label in a chart that is embedded in a worksheet. For example, in a bar graph the label indicating tha value of the graph.
• A pop-up window appears asking the user to enter text that they want included on the label
• That text is then included with the value that is already there, as a superscript.

With the below code, the entire data label is formatted as a superscript.


Code:

Private Sub EmbChart_Select(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long)

If Arg2 > 0 Then
sScript = InputBox("Type in the superscript exactly how you want it", "Superscript", "Enter superscript here")

If sScript <> "" Then

Length1 = Len(sScript)


Text = ActiveChart.SeriesCollection(Arg1).Points(Arg2).DataLabel.Text
Length2 = Len(Text)

Selection.Characters.Text = Text & sScript

Selection.Characters(Start:=Length2 + 1, Length:=Length1).Font.Superscript = True
ActiveSheet.ChartObjects(Number).Activate
End If
End If



End Sub

That's strange. I created a chart, selected a data label and ran your code. It executed perfectly and only the text I entered was formatted as superstring.

What version of Excel are you using? This code worked for me as well, until I upgraded to the new version of Excel.

I'm using Excel 2010.