Compartir a través de

Objeto CanvasShapes (Word)

  • Artículo

Use la propiedad CanvasItems de un objeto Shape o ShapeRange para devolver una colección CanvasShapes .

Comentarios

Para agregar formas a un lienzo de dibujo, use los métodos siguientes de la colección CanvasShapes : AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddPicture, AddPolyline, AddShape, AddTextbox, AddTextEffect o BuildFreeform. El ejemplo siguiente agrega un lienzo de dibujo al documento activo y luego agrega tres formas a dicho lienzo de dibujo.

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

Use CanvasItems (index), donde index es el nombre o el número de índice, para devolver una sola forma en la colección CanvasShapes . En el ejemplo siguiente se establecen las propiedades Line y Fill, y se voltea verticalmente la tercera forma del lienzo de dibujo.

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

A cada forma se la asigna un nombre predeterminado cuando se crea. Por ejemplo, si agrega tres formas distintas a un documento con los nombres siguientes: Rectángulo 2, Cuadro de texto 3 y Elipse 4. Use la propiedad Name para hacer referencia al nombre predeterminado o para asignar un nombre más significativo a una forma.

Métodos

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.