Método CanvasShapes.AddLine (Word)
Agrega una línea a un lienzo de dibujo. Devuelve un objeto Shape que representa la línea y lo agrega a la colección CanvasShapes.
Sintaxis
expresión. AddLine (BeginX, BeginY, EndX, EndY)
expresión requerida. Variable que representa un objeto CanvasShapes .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| BeginX | Obligatorio | Single | Posición horizontal, medida en puntos, del punto de inicio de la línea con relación al lienzo de dibujo. |
| BeginY | Obligatorio | Single | Posición vertical, medida en puntos, del punto de inicio de la línea con relación al lienzo de dibujo. |
| EndX | Obligatorio | Single | Posición horizontal, medida en puntos, del extremo final de la línea con relación al lienzo de dibujo. |
| Endy | Obligatorio | Single | Posición vertical, medida en puntos, del extremo final de la línea con relación al lienzo de dibujo. |
Comentarios
Para crear una flecha, utilice la propiedad Line para dar formato a una línea.
Ejemplo:
En este ejemplo, se agrega una línea de color púrpura con una flecha a un nuevo lienzo de dibujo.
Sub NewCanvasLine()
Dim shpCanvas As Shape
Dim shpLine As Shape
'Add new drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=150, Height:=200)
'Add a line to the drawing canvas
Set shpLine = shpCanvas.CanvasItems.AddLine( _
BeginX:=25, BeginY:=25, EndX:=150, EndY:=150)
'Add an arrow to the line and sets the color to purple
With shpLine.Line
.BeginArrowheadStyle = msoArrowheadDiamond
.BeginArrowheadWidth = msoArrowheadWide
.ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255)
End With
End Sub
Consulte 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.