excel 2010 vba中的“允许文本溢出形状”
请指出我如何能够使用AddShape创build通过VBA创build的文本框的“允许文本溢出形状”？ 我已经通过对象参考文本框/ textframe2看了没有运气。
这可以通过vba实现[但我有很多文本框]：
右键单击[文本框形状] >>格式形状>>文本框>>允许文本溢出形状[“自动适应”组下方的checkbox]
我也做了macros观录音无济于事
build议非常感谢
您引用的设置似乎会影响Excel对象模型TextFrame.HorizontalOverflow和TextFrame.VerticalOverflow中的两个属性。
VerticalOverflow可以设置为：
-
xlOartVerticalOverflowClip– 没有溢出 -
xlOartVerticalOverflowEllipsis– 溢出标有三个点（ … ） -
xlOartVerticalOverflowOverflow– 允许溢出
HorizontalOverflow只能设置为：
-
xlOartHorizontalOverflowClip– 没有溢出 -
xlOartHorizontalOverflowOverflow– 允许溢出
工作示例（Excel 2010）：
Sheet1.Shapes(1).TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow
编辑 ：
另请参阅MSDN上的文档，其中说到VerticalOverflow设置仅在AutoSize属性为False时才起作用，而HorizontalOverflow设置仅在TextFrame2.WordWrap属性为msoFalse （0）时才起作用。
如果形状很小，最好将垂直和水平都设置为溢出。
Sheet1.Shapes(1).TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow Sheet1.Shapes(1).TextFrame.HorizontalOverflow=xlOartHorizontalOverflowOverflow Sheet1.Shapes(1).TextFrame2.WordWrap = msoFalse