如何重塑形状以适应 MS VISIO 中的文本？

Question

我在 MS Visio 上有一个形状，我想根据里面的文字重新塑造它。

我尝试了以下代码行：

element.Cells("Width").Formula = "=GUARD(TEXTWIDTH(TheText))"

但这不起作用，形状中仍有一些空格，我想适合文本而不留任何空格。

你知道怎么做吗？

非常感谢您提前:)

Answer 1

这个问题可能更适合 SU，但这是解决方案：这就是您看到的段落间距。

在代码中：使用TopMargin Cell或您需要的任何一个。

或者手动将它们设置为 0，它应该可以工作：

Answer 2

最后它与那两行一起工作：

element.CellsSRC(visSectionObject, visRowText, visTxtBlkLeftMargin) = 0
element.CellsSRC(visSectionObject, visRowText, visTxtBlkRightMargin) = 0