Superscripting in Powerpoint

[karls123]

Does anyone know how to Superscript part of a datalabel in PowerPoint from Excel VBA.

The following code works.

With oGraph.SeriesCollection(rowX)
For colY = 1 To .Points.Count
.Points(colY).DataLabel.Caption = .Points(colY).DataLabel.Caption & "ABC"
Next
End With

But I am unable to Superscript the "ABC".

 

[PHV]

Have you tried to play with the Font property ?
.Points(colY).DataLabel.Font.Superscript = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[karls123]

Thanks, but I only want ot superscript the ABC part of the datalabel.

.points(colY).datalabel.font.superscript=true will superscript the entire datalabel

 

[PHV]

And something like this (typed, untested)?
Dim intLen As Integer
For colY = 1 To .Points.Count
With .Points(colY).DataLabel
intLen = Len(.Caption)
.Caption = .Caption & "ABC"
.Characters(intLen + 1, 3).Font.Superscript = True
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PHV]

OOps, hit submit too fast :~/
And something like this (typed, untested)?
Dim intLen As Integer
For colY = 1 To .Points.Count
With .Points(colY).DataLabel
intLen = Len(.Caption)
.Caption = .Caption & "ABC"
.Characters(intLen + 1, 3).Font.Superscript = True
End With
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[karls123]

Thanks, but I have tried the .Characters and I get the following error:

Object doesn't support this property or method.

 

[SkipVought]

This works...

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        For Each pnt In .Points
            With pnt.DataLabel
                .Characters(Len(.Caption) - 2, 3).Font.Superscript = True
            End With
        Next
    End With

Skip,

_{[red]Be Advised![/red] For those this winter, caught in Arctic-like calamity, be consoled...
Many are cold, but few are frozen!}

 

[karls123]

I can get it to work in Excel using the .Characters property. But when I try to get it to work in PowerPoint I get the error.

 

[SkipVought]

Have you set a reference for the MS Excel n.m Object Library in Tools/References?

Skip,

_{[red]Be Advised![/red] For those this winter, caught in Arctic-like calamity, be consoled...
Many are cold, but few are frozen!}

 

[karls123]

The MS Excel 11.0 Object Library reference was already set.

 

[SkipVought]

...and you created an Excel Application object in the PP VB Project, using the CreateObject method?

Skip,

_{[red]Be Advised![/red] For those this winter, caught in Arctic-like calamity, be consoled...
Many are cold, but few are frozen!}

 

[karls123]

no it uses the MSGraph.Chart within PowerPoint

 

[SkipVought]

Why are you using MSGraph? It's klunky. As you already stated, you have a reference set for Excel, Excel Chart is much richer in features and capabilities.

I can do the substring superscript in Excel Chart but not in MSGraph.

Pic yer poison.

Skip,

_{[red]Be Advised![/red] For those this winter, caught in Arctic-like calamity, be consoled...
Many are cold, but few are frozen!}