Clase ShapeNodes (Excel VBA)
Colección de todos los objetos ShapeNode de especificado forma libre. Para usar una variable de clase ShapeNodes, primero debe ser instanciado, por ejemplo
Dim sns as ShapeNodes
Set sns = Application.ActiveChart.OLEObjects.ShapeRange
Count
Devuelve un valor de tipo Integer que representa el número de objetos de la colección.
Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Nodes.Count
Delete
Elimina el objeto.
Delete (Index)
Index: Índice del objeto que se va a eliminar.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex
Insert
Inserta un nodo en una forma libre.
Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=, Y1:=
Arguments
Estos son los argumentos con nombre :
Index (Long) - De tipo long. Número del nodo de forma detrás del cual va a insertarse un nuevo nodo.
SegmentType (Office.MsoSegmentType) - Tipo de segmento.
EditingType (Office.MsoEditingType) - El tipo de modificación.
X1 (Single) - Si el parámetro EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el parámetro EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.
Y1 (Single) - Si el valor de EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical, medida en puntos, desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.
Optional arguments
Los siguientes argumentos son opcionales
X2 (Single) - Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y2 (Single) - Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical, medida en puntos, desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
X3 (Single) - Si el valor de EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y3 (Single) - Si el valor de EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.
Item
Devuelve un solo objeto de una colección.
Item (Index)
Index: Número de índice o nombre del objeto.
Dim shpn As ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)
SetEditingType
Establece el tipo de edición del nodo especificado por Index. Si el nodo es un punto de control de un segmento curvado, este método establece el tipo de edición del nodo adyacente que une los dos segmentos. Observe que, dependiendo del tipo de edición, este método puede afectar a la posición de los nodos adyacentes.
SetEditingType (Index, EditingType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto
Arguments
Estos son los argumentos con nombre :
Index (Long) - Nodo cuyo tipo de modificación va a establecerse.
EditingType (Office.MsoEditingType) - Propiedad de modificación del vértice.
SetPosition
Establece la ubicación del nodo especificado por Index. Tenga en cuenta que, según el tipo de modificación del nodo, este método puede afectar a la posición de los nodos adyacentes.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetPosition Index:=lngIndex, X1:=, Y1:=
Arguments
Estos son los argumentos con nombre :
Index (Long) - Nodo cuya posición va a establecerse.
X1 (Single) - Posición (en puntos) del nuevo nodo con respecto a la esquina superior izquierda del documento.
Y1 (Single) - La posición (en puntos) del nuevo nodo con respecto a la esquina superior izquierda del documento.
SetSegmentType
Establece el tipo de segmento del segmento que sigue al nodo especificado por Index. Si el nodo es un punto de control de un segmento curvo, este método establece el tipo de segmento de esa curva. Tenga en cuenta que esto puede afectar al número total de nodos insertando o eliminando nodos adyacentes.
SetSegmentType (Index, SegmentType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine
Arguments
Estos son los argumentos con nombre :
Index (Long) - Nodo cuyo tipo de segmento va a establecerse.
SegmentType (Office.MsoSegmentType) - Especifica si el segmento es recto o curvo.