Compartilhar via


Propriedade ShapeNode.EditingType (Publisher)

Se o nó especificado for um vértice, essa propriedade retornará uma constante MsoEditingType indicando 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, essa propriedade retorna o tipo de edição do vértice adjacente. Somente leitura.

Sintaxe

expressão. EditingType

Expressão Uma variável que representa um objeto ShapeNode .

Valor de retorno

MsoEditingType

Comentários

Use o método SetEditingType para definir o valor dessa propriedade.

O valor da propriedade EditingType pode ser uma das constantes MsoEditingType declaradas na biblioteca de tipos do Microsoft Office.

Exemplo

Este exemplo altera os nós de canto para nós de curvas suaves na terceira forma na publicação ativa. A forma deve ser um desenho de forma livre.

Dim intNode As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 For intNode = 1 to .Count 
 If .Item(intNode).EditingType = msoEditingCorner Then 
 .SetEditingType Index:=intNode, _ 
 EditingType:=msoEditingSmooth 
 End If 
 Next 
End With 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.