Macro: text object coordinates returned as 0,0

[amit_shetty78]

Hi,

I have a macro to export object to excel. The issue is that for all text objects the coordinates returned are always 0,0 even though they are scattered over the sheet. Coordinates for other objects is returned correctly. Sample of the macro used is below:

sub getCoords

set doc=ActiveDocument

dim objid

objid = "TX143"

set chart = ActiveDocument.GetSheetObject(objid)

chartX = chart.GetRect.Left

chartY =  chart.GetRect.Top

msgbox("x=" & chartX & ",y=" & chartY)

end sub

Has anyone encountered this issue?

Appreciate any help with this.

Thanks.

[jonathandienst]

Hi

Your script worked fine on a simple model containing only a text box.

Regards

Jonathan