Excel VBA教程:AddTextbox方法

创建文本框。返回一个Shape对象,该对象代表新建的文本框。

expression.AddTextbox(Orientation, Left, Top, Width, Height)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Orientation  MsoTextOrientation 类型,必需。文本框的方向。

MsoTextOrientation 可为以下 MsoTextOrientation 常量之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

对于所选择或安装的不同语言支持(例如:美国英语),以上的某些常量可能不可用。

Left   Single 类型,必需。相对于文档的左上角,以磅为单位给出文本框左上角的位置。

Top   Single 类型,必需。相对于文档的顶部,以磅为单位给出文本框的左上角位置。

Width   Single 类型,必需。以磅为单位给出文本框的宽度。

Height   Single 类型,必需。以磅为单位给出文本框的高度。

Excel VBA教程:AddTextbox方法·示例

本示例向myDocument 中添加包含文本“Test Box”的文本框。


Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    100, 100, 200, 50) _
    .TextFrame.Characters.Text = "Test Box"

上页:Excel VBA教程:AddShape方法 下页:Excel VBA教程:AddTextEffect方法

Excel VBA教程:AddTextbox方法

Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
Excel VBA教程:Apply方法 Excel VBA教程:ApplyCustomType方法
Excel VBA教程:ApplyDataLabels方法 Excel VBA教程:ApplyNames方法
Excel VBA教程:ApplyOutlineStyles方法 Excel VBA教程:AreaGroups方法
Excel VBA教程:Arrange方法 Excel VBA教程:AutoComplete方法
Excel VBA教程:AutoFill方法 Excel VBA教程:AutoFilter方法
Excel VBA教程:AutoFit方法 Excel VBA教程:AutoFormat方法
Excel VBA教程:AutomaticLength方法 Excel VBA教程:AutoOutline方法
Excel VBA教程:AutoShow方法 Excel VBA教程:AutoSort方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号