Error while creating Organizational Chart in Powerpoint (VBA)

Hello Friends,

I am trying to automate PowerPoint using VB6. I want to dynamically create an organizational chart in Powepoint, from a VB6 application.

I have Office 2003.

I am getting error on the following line, when i try to add a node in the Organizational Chart.

ppSlide3.Shapes.AddOLEObject 100, 150, 400, 300, "OrgPlusWOPX.4"

Error:
Runtime-error: '-2147467259 (80004005)':
Method "AddOLEObject" of object "Shapes failed"


I have used the code provided on the following link:

http://support.microsoft.com/kb/222929

Kindly help me out in this regard.

I would be grateful.

Have a great day
Bye

what is ppslide3?
is it just a slide in your presentation or an object in your vb code?
are other parts of the code working correctly?

ppslide3 is a Powerpoint Slide object created in my VB Code.

Hi

I noticed this post and was wondering if you found a solution and if you can share how you actually create the boxes of the org chart.

Looking forward to hearing from you

Regards

Meir