Accessing Embedded Objects


2006-06-29 12:21:39 AM
delphi150
Hello,
In a PPT file, I have a slide that have a graph... I want to change the
color of the legend of the graph. How do I access it...?
I can determine if a slide has the graph....
if ThisSlide.shapes.Item(Item_Loop).Type_ = msoEmbeddedOLEObject then
begin
EmbeddedHeader :=
ThisSlide.shapes.Item(Item_Loop).OLEFormat.ProgID;
if Pos('MSGraph', EmbeddedHeader)>0 then
.. This is my graph...
How do I access the color of the font of the legend?
Thanks
George S