vba - Excel 2010 vba 中的 "Allow text to overflow shape"

Question

能否告诉我如何使用 AddShape 将通过 VBA 创建的文本框的“允许文本溢出形状”作为目标？我查看了对象引用 textframe/textframe2，但没有成功。

这可以在没有 vba 的情况下实现[但我有很多文本框]:

右键单击[文本框形状]>>设置形状>>文本框>>允许文本溢出形状[勾选“自动调整”组下的框]

我也做过宏录制，没有效果

非常感谢您的建议

Answer 1

您引用的设置似乎会影响 Excel 对象模型中的两个属性:TextFrame.Horizo​​ntalOverflow 和 TextFrame.VerticalOverflow。

VerticalOverflow 可以设置为:

• xlOartVerticalOverflowClip - 无溢出
• xlOartVerticalOverflowEllipsis - 溢出用三个点标记 (...)
• xlOartVerticalOverflowOverflow - 允许溢出

Horizo​​ntalOverflow 只能设置为:

• xlOartHorizo​​ntalOverflowClip - 无溢出
• xlOartHorizo​​ntalOverflowOverflow - 允许溢出

工作示例(Excel 2010):

Sheet1.Shapes(1).TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow

编辑:

另请参阅 MSDN 上的文档，其中显示 VerticalOverflow仅当 AutoSize 属性为 False 且 HorizontalOverflow 时，设置才会生效。仅当 TextFrame2.WordWrap 属性为 msoFalse (0) 时，设置才会生效。