Método ShapeNodes.SetPosition (Publisher)

Define a posição do nó especificado. Dependendo do tipo de edição do nó, este método pode afetar a posição dos nós adjacentes.

Sintaxe

expressão. SetPosition (Index, X1, Y1)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Integer	O nó cuja posição deve ser definida. É 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.
X1	Obrigatório	Variant	A posição horizontal do nó em relação ao canto superior esquerdo da página.
Y1	Obrigatório	Variant	A posição vertical do nó em relação ao canto superior esquerdo da página.

Comentários

Para os argumentos X1 e Y1 , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Exemplo

Este exemplo move o segundo nó da terceira forma da publicação ativa 200 pontos para a direita e 300 pontos para baixo. A forma deve ser um desenho de forma livre.

Dim arrPoints As Variant 
Dim intX As Integer 
Dim intY As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 arrPoints = .Item(2).Points 
 intX = arrPoints(1, 1) 
 intY = arrPoints(1, 2) 
 .SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 300 
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.