how to run visio embedded objects

[snow_cap]

hey,
I have added 2 embedded objects in visio using macro using th
following :

Code
-------------------
Application.ActiveWindow.Page.InsertFromFile vFile, visInsertIcon
-------------------


Now what i am trying to do is to open the added objects fro
macro(vba)
ex:
For Each PagObj In ActiveDocument.Pages
Set layersObj = PagObj.Layers
For Each layerObj In layersObj
Set shpsObj = layerObj.Page.Shapes
For Each shpObj In shpsObj
'the capture shp obj might be a word document or a picture o
anything,so how can i open it
Next
Next
Next

thank yo