Classe ShapeNodes (Excel VBA)
Uma coleção de todos os objetos ShapeNode especificado forma livre. Para usar uma variável de classe ShapeNodes, ela primeiro precisa ser instanciada por exemplo
Dim sns as ShapeNodes
Set sns = Application.ActiveChart.OLEObjects.ShapeRange
Count
Retorna um valor Integer que representa o número de objetos na coleção.
Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Nodes.Count
Delete
Exclui o objeto.
Delete (Index)
Index: O índice do objeto a ser excluído.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex
Insert
Insere um nó em uma forma livre.
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
O seguinte argumento é opcional
Index (Long) - O número do nó da forma após do qual será inserido um novo nó.
SegmentType (Office.MsoSegmentType) - O tipo de segmento.
EditingType (Office.MsoEditingType) - O tipo de edição.
X1 (Single) - Se o EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância horizontal, medida em pontos, do canto superior esquerdo do documento até o ponto final do novo segmento. Se o EditingType do novo nó for msoEditingCorner, este argumento especificará a distância horizontal, medida em pontos, do canto superior esquerdo do documento para o primeiro ponto de controle do novo segmento.
Y1 (Single) - Se o EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância vertical, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final para o novo segmento. Se o EditingType do novo nó for msoEditingCorner, este argumento especificará a distância vertical, medida em pontos, do canto superior esquerdo do documento para o primeiro ponto de controle do novo segmento.
Optional arguments
Os seguintes argumentos são opcionais
X2 (Single) - Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal, medida em pontos, do canto superior esquerdo do documento até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y2 (Single) - Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical, medida em pontos, do canto superior esquerdo do documento até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
X3 (Single) - Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y3 (Single) - Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.
Item
Retorna um único objeto de uma coleção.
Item (Index)
Index: O nome ou número de índice do objeto.
Dim shpn As ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)
SetEditingType
Define o tipo de edição do nó especificado por Index. Se o nó for um ponto de controle para um segmento curvo, este método definirá o tipo de edição do nó adjacente a ele que interliga dois segmentos. Observe que, dependendo do tipo de edição, esse método pode afetar a posição dos nós adjacentes.
SetEditingType (Index, EditingType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto
Arguments
O seguinte argumento é opcional
Index (Long) - O nó cujo tipo de edição será definido.
EditingType (Office.MsoEditingType) - A propriedade de edição do vértice.
SetPosition
Define o local do nó especificado por Index. Observe que, dependendo do tipo de edição do nó, este método pode afetar a posição de nós adjacentes.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetPosition Index:=lngIndex, X1:=, Y1:=
Arguments
O seguinte argumento é opcional
Index (Long) - O nó cuja posição será definida.
X1 (Single) - A posição (em pontos) do novo nó em relação ao canto superior esquerdo do documento.
Y1 (Single) - A posição (em pontos) do novo nó em relação ao canto superior esquerdo do documento.
SetSegmentType
Define o tipo de segmento do segmento que vem após o nó especificado por Index. Se o nó for um ponto de controle de um segmento curvo, esse método definirá o tipo de segmento dessa curva. Observe que isso pode afetar o número total de nós inserindo ou excluindo nós adjacentes.
SetSegmentType (Index, SegmentType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine
Arguments
O seguinte argumento é opcional
Index (Long) - O nó cujo tipo de segmento será definido.
SegmentType (Office.MsoSegmentType) - Especifica se o segmento é reto ou curvo.