应用于 FreeformBuilder 对象的 ConvertToShape 方法。
创建一个图形,该图形具有指定对象的几何图形特征。返回一个 Shape 对象,该对象代表新图形。
expression.ConvertToShape(Anchor)
expression 必需。该表达式返回一个 FreeformBuilder 对象。
Anchor Variant 类型,可选。Range 对象,代表与图形绑定在一起的文本。如果指定 Anchor,锁定位置位于锁定区域第一段的段首。如果省略此参数,将自动选定锁定区域,此图形也将定位于页面的上边界和左边界的相对位置。
应用于 InlineShape 对象的 ConvertToShape 方法。
将嵌入式图形转换为可自由浮动的图形。返回一个 Shape 对象,该对象代表新图形。
expression.ConvertToShape
expression 必需。该表达式返回一个 InlineShapes 对象。
使用 ConvertToShape 方法前,最少应该已经对 FreeformBuilder 对象用过一次 AddNodes 方法。
本示例将活动文档的第一个嵌入式图形转化为浮动的图形。
ActiveDocument.InlineShapes(1).ConvertToShape
本示例将一个有五个顶点的任意多边形添至 myDocument
中。
Set myDocument = ActiveDocument
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With