Método ShapeNodes.Insert (Publisher)
Insere um novo segmento após o nó especificado do desenho de forma livre.
Sintaxe
expressão. Inserir (Index, 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 MsoSegmentType . |
| EditingType | Obrigatório | MsoEditingType | O tipo de edição do novo nó. Pode ser uma das constantes MsoEditingType . |
| X1 | Obrigatório | Variantes | Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o primeiro ponto de controle do novo segmento. |
| Y1 | Obrigatório | Variantes | Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância vertical do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância vertical do canto superior esquerdo da página até o primeiro ponto de controle do novo segmento. |
| X2 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento. |
| Y2 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância vertical do canto superior esquerdo da página até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento. |
| X3 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância horizontal do canto superior esquerdo da página até o ponto de extremidade do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento. |
| Y3 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse argumento especificará a distância vertical do canto superior esquerdo da página até o ponto de extremidade 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; cadeias de caracteres podem estar em todas as unidades com suporte pelo Publisher (por exemplo, "2.5 in").
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.