Método ShapeNodes.Insert (PowerPoint)
Inserta un segmento nuevo a continuación del nodo especificado de la forma libre.
Sintaxis
expresión. Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Expresión Variable que representa un objeto ShapeNodes .
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Index | Obligatorio | Long | Nodo después del cual se va a insertar el nodo nuevo. |
SegmentType | Obligatorio | MsoSegmentType | Tipo de segmento que se va a agregar. |
EditingType | Obligatorio | MsoEditingType | Propiedad de edición del vértice. |
X1 | Obligatorio | Single | Si el parámetro EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control para el nuevo segmento. |
Y1 | Obligatorio | Single | Si el parámetro EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control para el nuevo segmento. |
X2 | Opcional | Single | Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control para el nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
Y2 | Opcional | Single | Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control para el nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
X3 | Opcional | Single | Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
Y3 | Opcional | Single | Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
Comentarios
El valor del parámetro SegmentType puede ser una de estas constantes MsoSegmentType .
msoSegmentCurve |
msoSegmentLine |
El valor del parámetro EditingType puede ser una de estas constantes MsoEditingType .
Msoeditingauto |
Msoeditingcorner |
Ejemplo:
En este ejemplo se agrega un nodo suave con un segmento curvo después del nodo cuatro de la forma tres de myDocument. La forma tres debe ser un dibujo de forma libre con, al menos, cuatro nodos.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
.Insert Index:=4, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de