CanvasShapes.AddShape 方法 (Word)
在绘图画布上添加一个自选图形。 返回一个代表该自选图形的 Shape 对象。
语法
expression。 AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )
expression 是必需的。 一个代表 CanvasShapes 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Type | 必需 | Long | 要返回的形状类型。 可以是任何 MsoAutoShape 常量。 |
| Left | 必需 | Single | 自选图形左边缘的位置（以磅为单位）。 |
| Top | 必需 | Single | 自选图形上边缘的位置（以磅为单位）。 |
| Width | 必需 | Single | 自选图形的宽度（以磅为单位）。 |
| Height | 必需 | Single | 自选图形的高度（以磅为单位）。 |
备注
若要更改已添加自选图形的类型，设置 AutoShapeType 属性。
示例
本示例在活动文档中创建新的绘图画布，并在绘图画布上添加一个圆形。
Sub NewCanvasShape()
Dim shpCanvas As Shape
Dim shpCanvasShape As Shape
'Add a new drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _
Left:=100, Top:=75, Width:=150, Height:=200)
'Add a circle to the drawing canvas
Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _
Type:=msoShapeOval, Left:=25, Top:=25, _
Width:=150, Height:=150)
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。