PowerPoint VBA教程:AddTextbox方法

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

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

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

Orientation  必选。MsoTextOrientation 类型。文本方向。这些常数中的某些可能不可用,这取决于选择或安装的语言支持(例如,U.S. English)。

MsoTextOrientation 可以是下列 MsoTextOrientation 类型常数之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

Left  必选。Single 类型。文本框左边缘相对于幻灯片左边缘的位置(以磅为单位)。

Top  必选。Single 类型。文本框上边缘相对于幻灯片上边缘的位置(以磅为单位)。

Width  必选。Single 类型。文本框的宽度(以磅为单位)。

Height  必选。Single 类型。文本框的高度(以磅为单位)。

VBA示例

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


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
    .TextRange.Text = "Test Box"

上页:PowerPoint VBA教程:AddTable方法 下页:PowerPoint VBA教程:AddTextEffect方法

PowerPoint VBA教程:AddTextbox方法

PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
PowerPoint VBA教程:AddTitleMaster方法 PowerPoint VBA教程:AddToFavorites方法
PowerPoint VBA教程:Align方法 PowerPoint VBA教程:Apply方法
PowerPoint VBA教程:ApplyTemplate方法 PowerPoint VBA教程:Arrange方法
PowerPoint VBA教程:AutomaticLength方法 PowerPoint VBA教程:Background方法
PowerPoint VBA教程:BeginConnect方法 PowerPoint VBA教程:BeginDisconnect方法
PowerPoint VBA教程:BuildFreeform方法 PowerPoint VBA教程:CanCheckIn方法
PowerPoint VBA教程:CanCheckOut方法 PowerPoint VBA教程:Cell方法
PowerPoint VBA教程:ChangeCase方法 PowerPoint VBA教程:Characters方法
PowerPoint VBA教程:CheckIn方法 PowerPoint VBA教程:CheckOut方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号