Classe ShapeNode (PowerPoint VBA)

A classe ShapeNode representa a geometria e as propriedades de edição de geometria dos nós em uma forma livre definida pelo usuário.

O procedimento principal da classe ShapeNode é ShapeNodes.Delete

Set

Para usar uma variável de classe ShapeNode, ela primeiro precisa ser instanciada por exemplo

Dim shpn as ShapeNode
Set shpn = ActiveWindow.RangeFromPoint.Nodes(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ShapeNode: ShapeNodes.Item, Shape.Nodes e ShapeRange.Nodes

Métodos

Este é o método principal da classe ShapeNode

ShapeNodes.Delete - Exclui um nó de uma forma.

Dim lngIndex As Long: lngIndex = 
ActiveWindow.RangeFromPoint.Nodes.Delete Index:=lngIndex

Estes são os principais métodos da classe

ShapeNodes.Insert - Insere um novo segmento após o nó especificado da forma livre.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=210, Y1:=100

ShapeNodes.SetEditingType - Define o tipo de edição do nó especificado.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto

ShapeNodes.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 = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetPosition Index:=lngIndex, X1:=210, Y1:=100

ShapeNodes.SetSegmentType - Define o tipo de segmento que acompanha o nó especificado.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine

Propriedades

EditingType Se o nó especificado for um vértice, esta propriedade retornará um valor que indica como as alterações feitas no nó afetam os dois segmentos conectados ao nó. Se o nó for um ponto de controle de um segmento curvo, esta propriedade retornará o tipo de edição do vértice adjacente. Somente leitura.

Dim metEditingType As Office.MsoEditingType
metEditingType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).EditingType

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes(1).Parent

Points Retorna um valor que representa a posição do nó especificado como um par de coordenadas. Somente leitura.

Dim pointsArray As vARIANT
pointsArray = ActivePresentation.Slides(1).Shapes(1).Nodes(1).Points

SegmentType Retorna um valor que indica se o segmento associado com o nó especificado é reto ou curvo. Somente leitura.

Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).SegmentType

ShapeNodes.Count Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Nodes.Count

ShapeNodes.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes.Parent