如何重塑形状以适应 MS VISIO 中的文本？
How to reshape a shape to fit text in MS VISIO?
我在 MS Visio 上有一个形状，我想根据其中的文本重新塑造它。
我尝试了以下代码行：
element.Cells("Width").Formula = "=GUARD(TEXTWIDTH(TheText))"
但这不起作用，形状中仍有一些空格，我希望适合文本而不留任何空格。
你知道怎么做吗？
非常感谢您:)
这个问题可能更适合 SU，但这里是解决方案：
这就是您看到的段落间距。
在代码中：使用 TopMargin Cell 或您需要的任何一个。
或者手动将它们设置为 0，它应该可以工作：
最后它与这两行一起工作：
element.CellsSRC(visSectionObject, visRowText, visTxtBlkLeftMargin) = 0
element.CellsSRC(visSectionObject, visRowText, visTxtBlkRightMargin) = 0
我在 MS Visio 上有一个形状，我想根据其中的文本重新塑造它。
我尝试了以下代码行：
element.Cells("Width").Formula = "=GUARD(TEXTWIDTH(TheText))"
但这不起作用，形状中仍有一些空格，我希望适合文本而不留任何空格。
你知道怎么做吗？
非常感谢您:)
这个问题可能更适合 SU，但这里是解决方案： 这就是您看到的段落间距。
在代码中：使用 TopMargin Cell 或您需要的任何一个。
或者手动将它们设置为 0，它应该可以工作：
最后它与这两行一起工作：
element.CellsSRC(visSectionObject, visRowText, visTxtBlkLeftMargin) = 0
element.CellsSRC(visSectionObject, visRowText, visTxtBlkRightMargin) = 0