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".
Superscripting in PowerPoint
Does anyone know how to Superscript part of a datalabel in PowerPoint from Excel VBA.
The following code works.
But I am unable to Superscript the "ABC".
The following code works.
But I am unable to Superscript the "ABC".
Superscripting in PowerPoint
Urano
Here's some additional info from the engineer:
I hope the code is helpful.
===============================
Sub MakeSuperScript()
Dim intIndex As Integer
Dim strPower As String
' Adjust SeriesCollection(2) so it uses your dummy series
With ActiveChart.SeriesCollection(2)
.HasDataLabels = True
.DataLabels.Position = xlLabelPositionBelow
For intIndex = 1 To .DataLabels.Count
strPower = CStr(intIndex - 1)
.DataLabels(intIndex).Text = "10" & strPower
.DataLabels(intIndex).Characters(3,
Len(strPower)).Font.Superscript = True
Next
End With
End Sub
===
Reference :
http://www.pcreview.co.uk/forums/thread-1784183.php
http://www.geocities.com/jonpeltier/Excel/Charts/ArbitraryAxis.html
-brenda (ISV Buddy Team)
has2nk
Hi,
The support engineer needs some additional information to work with.
Do you mean Chart object or Graph object
You can record a Marco when you do it via UI, then you can see the code by edit the macro.
If possible a print screen (screen shot) would be helpful.
-brenda (ISV Buddy Team)