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