Visio / Excel OLE Automation

[sirmanson]

I have a visio document that has an embedded excel worksheet. I am trying to manipulate the worksheet through code. Does anyone have any code snippets that may help me out?? I can find TONS of documentation on how to control excel from visio, just nothing on how to get excel to open an embedded object.
Thanks,

 

[sirmanson]

Ok, So I found the object in Visio

document.pages(1).layers(1).shapes(2)

if I pull the progID for this shape it shows "Excel.Sheet.8" which is correct. So now I just need some help figuring out how to have OLE open this up. I tried setting 2 Excel variables (and adding to the references)

Dim xlSheet As Excel.Sheets
Dim xlWB As Excel.Workbook

Then I try to initialize the excel sheet like this
Set xlSheet = shpObj.Object.Worksheets (1)

but none of the calls to xlSheet work. Does anyone have any ideas?

 

[sirmanson]

*bump*

 

[sirmanson]

*BUMP*