vba

[KD]

Is there any code that I can use in Excel vba to access a
PowerPoint bar chart's data labels?

Many thanks
KD

 

[Shyam Pillai]

KD,
Some examples which would be useful: Though they deal with code that runs
within the PPT application environment. You can modify it and make it work
from Excel.

Sample VBA Code to Create a Graph
http://support.microsoft.com?scid=kb;EN-US;Q176443

PPT2000: Sample VBA Code to Create a Graph from a Text File
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q222687

VBA: How to Paste New Excel Data into an Existing Graph
http://support.microsoft.com/support/kb/articles/q267/9/74.asp

PPT2000: Sample Visual Basic Code to Update Links in a Graph Datasheet
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q222689

GRAPH2000: VBA: How to Paste New Excel Data into an Existing Graph
http://support.microsoft.com/default.aspx?scid=kb;EN-US;qQ267974

PPT2000: Sample VB Code to Retrieve the Title of a Graph
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q222739

PPT2000: Creating and Altering a Graph During a Slide Show
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q242360


--
Regards
Shyam Pillai

Handout Wizard
http://www.mvps.org/skp/how/

 

[KD]

Hi Shyam

Still having problems !!
The code I have is as follows and doesn't work (it comes
up with "Run time error '438' Object doesn't support this
property or method")

dim oGraph as Object
oPPTApp.ActivePresentation.Slides(slide_number).Select
With oPPTApp.ActivePresentation.Slides(slide_number)
For Each oPPTShape In .Shapes
If oPPTShape.Type = msoEmbeddedOLEObject Then
Set oGraph = oPPTShape.OLEFormat.Object
oGraph.SeriesCollection(1).Points(1).DataLabels.Text
= "KD"
oGraph.Application.Update
End If
Next
End With

Any ideas would be most welcome !

Thanks

KD