Shape 对象

代表绘制层中的对象，如自选图形、任意多边形、OLE 对象、ActiveX 控件或图片。 Shape 对象是 Shapes 集合的一个成员，该集合包含了某个文档的正文或个文档的所有页眉和页脚中的所有形状。

说明

形状总是属于某个锁定范围。可以将形状置于包含锁定标记的页面上的任何位置。有三种代表形状的对象：

1. Shapes 集合，代表文档中所有的形状
2. ShapeRange 对象，代表文档中指定的形状子集（例如， ShapeRange 对象可以代表文档中的形状一和形状四，也可以代表文档中的所有选定形状）；
3. Shape 对象，代表文档中的一个形状。如果需要同时处理若干个形状或处理所选内容中的若干个形状，可使用 ShapeRange 集合。

使用 Shapes (Index) 可返回一个 Shape 对象，其中 Index 为名称或索引号。

在创建每个形状时为其指定一个默认名称。例如，如果向文档中添加了三个不同的形状，则这三个形状的名称可以是“矩形 2”、“文本框 3”和“椭圆 4”。要使形状的名称更有意义，请设置 Name 属性。

使用 ShapeRange (Index) 可返回代表所选内容中某个形状的 Shape 对象，其中 Index 为名称或索引号。

要将 Shape 对象添加到指定文档的形状集合，并返回一个代表新建形状的 Shape 对象，可使用 Shapes 集合的下列方法之一： AddCallout 、 AddCurve 、 AddLabel 、 AddLine 、 AddOleControl 、 AddOleObject 、 AddPolyline 、 AddShape 、 AddTextbox 、 AddTextEffect 或 BuildFreeForm 。

使用 GroupItems (Index) 可返回一个代表组合形状中的单个形状的 Shape 对象，其中 Index 为形状的名称或形状在该组中的索引号。

使用 Group 或 Regroup 方法可对一系列形状进行组合，并返回一个代表新组合的 Shape 对象。形成一个组合之后，便可以像处理任何其他形状一样处理该组合。

每个 Shape 对象都锁定到某个文本范围。将某个形状锁定到包含锁定范围的第一段的开头。该形状总是与其锁定标记在同一页上。

将 ShowObjectAnchors 属性设置为 True 可以查看锁定标记本身。形状的 Top 和 Left 属性决定了其垂直和水平位置。形状的 RelativeHorizontalPosition 和 RelativeVerticalPosition 属性决定了形状的位置是从锁定段落、包含锁定段落的栏、页边距还是页边缘开始计算。

如果将形状的 LockAnchor 属性设置为 True ，则无法将锁定标记从其所在位置拖动到页面上。

使用 Fill 属性可返回 FillFormat 对象，该对象包含用于设置闭合形状的填充格式的所有属性和方法。 Shadow 属性返回 ShadowFormat 对象，该对象用于设置阴影的格式。使用 Line 属性可返回 LineFormat 对象，该对象包含用于设置线条格式和箭头格式的各种属性和方法。 TextEffect 属性返回 TextEffectFormat 对象，该对象用于设置艺术字的格式。 Callout 属性返回 CalloutFormat 对象，该对象用于设置线形标注的格式。 WrapFormat 属性返回 WrapFormat 对象，该对象用于定义文字环绕形状的方式。 ThreeD 属性返回 ThreeDFormat 对象，该对象用于创建三维形状。可使用 PickUp 和 Apply 方法将一个形状的格式设置传送给另一个形状。

对 Shape 对象使用 SetShapesDefaultProperties 方法可设置文档的默认形状的格式。新形状将继承默认形状的许多属性。

使用 Type 属性可指定形状的类型；例如，任意多边形、自选图形、OLE 对象、标注或链接图片。使用 AutoShapeType 属性可指定自选图形的类型；例如，椭圆、矩形或气球。

使用 Width 和 Height 属性可指定形状的大小。

TextFrame 属性返回 TextFrame 对象，该对象包含用于将文本附加到形状和链接文本框之间的文本的所有属性和方法。

Shape 对象锁定到某一文本范围，但可以自由浮动，并且可以放置在页面上的任何位置。 InlineShape 对象被视为字符，并作为字符置于文本行中。可以使用 ConvertToInlineShape 方法和 ConvertToShape 方法来转换形状的类型。只能将图片、OLE 对象和 ActiveX 控件转换为内嵌形状。

示例

/*本示例水平翻转活动文档中的第一个形状。*/
function test() {
    Application.ActiveDocument.Shapes.Item(1).Flip(msoFlipHorizontal)
}

/*本示例水平翻转活动文档中名为 Rectangle 1 的形状。*/
function test() {
    Application.ActiveDocument.Shapes.Item("Rectangle 1").Flip(msoFlipHorizontal)
}

/*本示例为所选内容中的第一个形状设置填充效果。*/
function test() {
    Selection.ShapeRange.Item(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
}

/*本示例为所选区域的所有形状设置填充效果。*/
function test() {
    let shapeRange = Application.Selection.ShapeRange
    for (let i = 1; i <= shapeRange.Count; i++) {
        shapeRange.Item(i).Fill.ForeColor.RGB = RGB(255, 0, 0)
    }
}

/*本示例在活动文档中添加一个矩形，并显示该矩形的宽度。*/
function test() {
    let shape = Application.ActiveDocument.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200)
    alert(shape.Width)
}

方法

属性