visio org chart shapes are not well formated on its position by using VS.Net

[memoboy]

I’m working on creating a Visio 2003 organization chart over .net, I have been code it by using VB.Net 2005. What I’m trying to do is to retrieve the organization chart hierarchical from the database and store it as an html web page. I have been used the organization chart wizard for creating the chart shapes and I used VisSaveAsWeb object to save the chart as a web page. My problem is that the org chart shapes doesn’t formatted correctly after resizing the shapes to fit with it text. Is there any one know how could I control the shape position to relocate it into it right place and this is my peace of code Code Block 'On Error GoTo OrgDoItErrHandler Dim objVisio As Visio.Application Dim objAddOn As Visio.Addon Dim vsoSaveAsWeb As VisSaveAsWeb Dim vsoWebSettings As VisWebPageSettings Dim strCommand As String Dim i As Integer Dim pagObj As Visio.Page Dim shpObj As Visio.Shape Dim celObjHeight As Visio.Cell Dim celObjWidth As Visio.Cell strCommand = "/DATASOURCE=SN,TABLE=" _ & "~" & ",DBQUALIFIER=~" _ & " /NAME-FIELD=~" _ & " /UNIQUEID-FIELD=~" _ & " /MANAGER-FIELD=~" _ & " /DISPLAY-FIELDS=~" _ & " /CUSTOM-PROPERTY-FIELDS=~" _ & " /SHAPE-FIELD=~" objVisio = New Visio.InvisibleApp objAddOn = objVisio.Addons.ItemU("OrgCWiz") 'Run the add-on (errors are handled by the add-on) On Error Resume Next 'Break up the string Dim strCommandPart As String Dim strCommandLeft As String strCommandLeft = strCommand objAddOn.Run("/S-INIT") While (Len(strCommandLeft) > 0) strCommandPart = Microsoft.VisualBasic.Left(strCommandLeft, MAX_ARGSTRING_LENGTH) strCommandLeft = Mid(strCommandLeft, Len(strCommandPart) + 1) objAddOn.Run("/S-ARGSTR " + strCommandPart) End While objAddOn.Run("/S-RUN " + strCommandLeft) ' Get a VisSaveAsWeb object that ' represents a new Web page project. vsoSaveAsWeb = objVisio.Application.SaveAsWebObject ' Get a VisWebPageSettings object. vsoWebSettings = vsoSaveAsWeb.WebPageSettings ' Configure preferences. With vsoWebSettings .StartPage = 1 .EndPage = 2 .QuietMode = True .TargetPath = "D:\Balaji\Test.htm" .SilentMode = True End With pagObj = objVisio.ActivePage ' I’m trying here to resize the shaps to fet with the texts that inside it For i = 0 To pagObj.Shapes.Count If pagObj.Shapes.Item