Compartilhar via

ShapeNodes.Insert method (Publisher) (Método ShapeNodes.Insert [Publisher])

Insere um novo segmento após o nó especificado do desenho de forma livre.

Sintaxe

expressão. Inserir (Índice, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

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úmero do nó após o qual o novo nó deve ser inserido.
SegmentType Obrigatório MsoSegmentType O tipo de segmento a ser adicionado. Pode ser uma das constantes de MsoSegmentType .
EditingType Obrigatório MsoEditingType O tipo de edição do novo nó. Pode ser uma das constantes de MsoEditingType .
X1 Obrigatório Variant Se o EditingType do novo segmento for msoEditingAuto, este argumento especifica a distância horizontal do canto superior esquerdo da página para o ponto final do novo segmento.

Se o EditingType do novo nó for msoEditingCorner, este argumento especifica a distância horizontal do canto superior esquerdo da página até ao primeiro ponto de controlo do novo segmento.
Y1 Obrigatório Variant Se o EditingType do novo segmento for msoEditingAuto, este argumento especifica a distância vertical do canto superior esquerdo da página para o ponto final do novo segmento.

Se o EditingType do novo nó for msoEditingCorner, este argumento especifica a distância vertical do canto superior esquerdo da página até ao primeiro ponto de controlo do novo segmento.
X2 Opcional Variant Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal do canto superior esquerdo da página para o segundo ponto de controlo do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y2 Opcional Variant Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância vertical do canto superior esquerdo da página para o segundo ponto de controlo do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
X3 Opcional Variant Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal do canto superior esquerdo da página para o ponto final do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y3 Opcional Variant Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância vertical do canto superior esquerdo da página para o ponto final do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.

Comentários

Para os argumentos X1, Y1, X2, Y2, X3 e Y3 , os valores numéricos são avaliados em pontos; As cadeias de carateres podem estar em todas as unidades suportadas pelo Publisher (por exemplo, "2,5 pol").

Exemplo

Este exemplo adiciona um nó suave com um segmento curvo após o quarto nó da terceira forma na publicação ativa. A forma precisa ser um desenho de forma livre com pelo menos quatro nós.

With ActiveDocument.Pages(1).Shapes(3).Nodes 
 .Insert Index:=4, _ 
 SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, _ 
 X1:=210, Y1:=100 
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.

  • Last updated on