你的问题很常见——TEXTWIDTH(TheText)只计算文本本身的宽度，但Visio默认给文本块加了内边距，这就是形状仍留有空白的核心原因。下面是一步步的可行解决方法：

第一步：清除文本块的内边距 #

Visio的文本框默认自带左右上下的内边距（约2pt），必须先把这些边距设为0，才能让形状完全贴合文本：

' 移除文本所有内边距
element.Cells("TxtLeftMargin").FormulaU = "0"
element.Cells("TxtRightMargin").FormulaU = "0"
element.Cells("TxtTopMargin").FormulaU = "0"
element.Cells("TxtBottomMargin").FormulaU = "0"

第二步：解锁形状的尺寸锁定（如果有） #

部分模具里的形状默认锁定了宽高，先解锁才能让后续的公式生效：

' 解锁宽高锁定
element.Cells("LockWidth").FormulaU = "0"
element.Cells("LockHeight").FormulaU = "0"

第三步：设置形状宽高完全匹配文本 #

现在可以把形状的宽高直接绑定到文本的实际尺寸，如果你希望修改文本时形状自动同步更新，记得用GUARD包裹公式：

' 宽度适配文本宽度
element.Cells("Width").FormulaU = "=GUARD(TEXTWIDTH(TheText))"
' 高度适配文本高度（自动处理文本换行情况）
element.Cells("Height").FormulaU = "=GUARD(TEXTHEIGHT(TheText))"

额外注意事项 #

• 如果你的文本有自动换行需求，TEXTHEIGHT(TheText)会根据文本块的宽度自动计算换行后的高度，配合上面的设置就能完美适配。
• 对于带固定装饰的特殊模具形状，可能需要先右键点击形状→选择「形状→取消组合」（或转换为基本形状），否则内边距设置可能无法生效。

这样操作后，形状就会完全贴合文本内容，不会有多余的空白区域了。

内容的提问来源于stack exchange，提问作者GG24