Retrieve a VML graphical object

Hi,

I want to get all elements ids from a page, including ids of VML graphical
objects.

I used Application.ActiveDocument.All collection from FrontPage 2003 Object
Model but the id of the VML graphical objects is not returned.

Here is the code:

Dim objElements As IHTMLElementCollection
Set objElements = Application.ActiveDocument.body.All

For Each obj In objElements
lvwObj.ListItems.Add , , obj.tagName + "_" + obj.Id
Next

obj.tagName for an <v:rect> tag is display as "xxxescher" ?!? and id string
is empty.

My question is how can I get the correct ids of the all VML graphical
objects.

Please help me!!!

Thanks.

clintonG
Tue Nov 16 20:59:36 CST 2004

Your doing client-side and you should lookup some DOM methods such as
getElementById.

--
<%= Clinton Gallagher, "Twice the Results -- Half the Cost"
Architectural & e-Business Consulting -- Software Development
NET csgallagher@REMOVETHISTEXTmetromilwaukee.com
URL http://www.metromilwaukee.com/clintongallagher/


"dudu" <reno24ro@yahoo.com> wrote in message
news:OlaVa%239yEHA.1040@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> I want to get all elements ids from a page, including ids of VML graphical
> objects.
>
> I used Application.ActiveDocument.All collection from FrontPage 2003
Object
> Model but the id of the VML graphical objects is not returned.
>
> Here is the code:
>
> Dim objElements As IHTMLElementCollection
> Set objElements = Application.ActiveDocument.body.All
>
> For Each obj In objElements
> lvwObj.ListItems.Add , , obj.tagName + "_" + obj.Id
> Next
>
> obj.tagName for an <v:rect> tag is display as "xxxescher" ?!? and id
string
> is empty.
>
> My question is how can I get the correct ids of the all VML graphical
> objects.
>
> Please help me!!!
>
> Thanks.
>
>