Word) (CanvasShapes 物件

使用 Shape或ShapeRange物件的CanvasItems屬性可傳回CanvasShapes集合。

註解

若要將圖形新增至繪圖畫布，請使用 CanvasShapes 集合的下列方法： AddCallout、 AddConnector、 AddCurve、 AddLabel、 AddLine、 AddPicture、 AddPolyline、 AddShape、 AddTextbox、 AddTextEffect或 BuildFreeform。 下列範例會將繪圖畫布新增至使用中文件，然後在繪圖畫布中新增三個圖形。

Sub AddCanvasShapes() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShapes As CanvasShapes 
 Dim shpCnvItem As Shape 
 
 'Adds a new canvas to the document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=50, Height:=75) 
 Set shpCanvasShapes = shpCanvas.CanvasItems 
 
 'Adds shapes to the CanvasShapes collection 
 With shpCanvasShapes 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=50, Height:=50 
 .AddShape Type:=msoShapeOval, _ 
 Left:=5, Top:=5, Width:=40, Height:=40 
 .AddShape Type:=msoShapeIsoscelesTriangle, _ 
 Left:=0, Top:=25, Width:=50, Height:=50 
 End With 
End Sub

使用 CanvasItems (索引) ，其中 index 是名稱或索引編號，可傳回 CanvasShapes 集合中的單一圖形。 下列範例會設定 Line 和 Fill 屬性，並讓繪圖畫布中的第三個圖案垂直翻轉。

Sub CanvasShapeThree() 
 With ActiveDocument.Shapes(1).CanvasItems(3) 
 .Line.ForeColor.RGB = RGB(50, 0, 255) 
 .Fill.ForeColor.RGB = RGB(50, 0, 255) 
 .Flip msoFlipVertical 
 End With 
End Sub

每個圖案在建立時都會指定一個預設名稱。 例如，如果您將三個不同的圖案加入至文件，它們的名稱可能就是 Rectangle 2、TextBox 3 及 Oval 4。 使用 Name 屬性來參考預設名稱，或將更有意義的名稱指派給圖形。

方法

• AddCallout
• AddConnector
• AddCurve
• AddLabel
• AddLine
• AddPicture
• AddPolyline
• AddShape
• AddTextbox
• AddTextEffect
• BuildFreeform
• 項目
• Range
• SelectAll

屬性

• 應用程式
• 數目
• Creator
• Parent

另請參閱

• Word 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。