Método ShapeNodes.SetEditingType (Publisher)

Define o tipo de edição do nó especificado. Se o nó for um ponto de controle de um segmento curvo, este método definirá o tipo de edição do nó adjacente para que una dois segmentos. Dependendo do tipo de edição, este método pode afetar a posição dos nós adjacentes.

Sintaxe

expressão. SetEditingType (Index, EditingType)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	O nó cujo tipo de edição deve ser definido. É necessário que este valor seja um número entre 1 e o número de nós da forma especificada; caso contrário, ocorrerá um erro.
EditingType	Obrigatório	MsoEditingType	A propriedade de edição do nó. Pode ser uma das constantes MsoEditingType declaradas na biblioteca de tipos do Microsoft Office.

Exemplo

Este exemplo altera todos os nós de ângulo para nós curvos suaves na terceira forma da 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 intNode 
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.