Question

我是否可以指出如何使用AddShape定位通过VBA创建的文本框的“允许文本溢出形状”？我已经查看了对象引用textframe / textframe2而没有运气。

这可以通过以下方式实现[但我有很多文本框]：

右键单击[在文本框形状上]＆gt;＆gt;格式形状＆gt;＆gt;文本框＆gt;＆gt;允许文本溢出形状[“自动调整”组下的复选框]

我也做过宏观录音无效

建议非常感谢

Answer 1

您引用的设置似乎会影响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）时生效。

Answer 2

如果形状很小，最好将垂直和水平都设置为溢出。

Sheet1.Shapes(1).TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow
Sheet1.Shapes(1).TextFrame.HorizontalOverflow=xlOartHorizontalOverflowOverflow
Sheet1.Shapes(1).TextFrame2.WordWrap = msoFalse

excel 2010 vba中的“允许文本溢出形状”

2 个答案: