I found why i was having a problem with the field size. I was attempting to
store some info in the gantt chart custom properties "Prop.UserDefText1" when
i ran my code everthing was fine. but when i closed the application and tried
to reopen it i had a very bad problem. It would open show u the chart, you
could see it was still loading and just before it finished it would just shut
down all of visio. I tried to Ctrl Break it hoping it was a line of code
that caused an error but no it didn't even go into VBA. All my code was in
this app and now i couldn't get to it. I had backups but all recent changes
would be lost. I got around this by opening an MSAccess form and did an
insert object which allowed my to get to my app and then get to the code
behind my app then just copy/past and i was saved. I found the line but
didn't see what was the problem untill just now. Did some test and found
that small amounts of data didn't bother it but large amounts corrupted my
app. I was hoping it was some field size problem and i just needed to
restrict my data size or spread the data out between other fields. But then
i saw this and fixed it, now it works.
This line corrupted my app you might want to let others know about it.
' Set celObj = shpobj.CellsU("Prop.UserDefText1.Value")
This is the correct way
Set celObj = shpobj.CellsU("Prop.UserDefText1")
celObj.Formula = Chr(34) & st & Chr(34)