返回介绍

AddTextbox 方法

发布于 2019-10-04 14:06:56 字数 1519 浏览 951 评论 0 收藏 0

全部显示

创建一个文本框。返回一个代表新文本框的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 类型。文本框的高度(以磅为单位)。

示例

本示例在 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"

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文