What zoom the object in 3D, knowing his coordinates.
From sample:
'//Object extents - use these to zoom into all objects in the user collection.
MyObjectsNamedCollection.Flush()
MyObjectsNamedCollection.AddNamedItem(TempObject, "TempObject")
ObjectContent2.Objects(1) = MyObjectsNamedCollection
If Section.Href.Contains("eModel") Then
cObjectExtents = CType(ObjectContent2.Extents(MyObjectsNamedCollection), AdCommon.IAdCube)
end if
What use cObjectExtents?