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.