请教Visio VBA的一个问题，图形无法设置宽度

[chxychp]

 我使用VBA编写了代码，递归方法设置图形的外观；但遇到下面的图形就出问题了，它也是组合图形，其中的无法在visio中编辑，VBA也相应的出了问题；

            '修改宽度"GUARD(5.72 pt)"
            parShape.CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = Str(parWidth) + "pt"