Compartilhar via

ShapeNodes.SetPosition method (Publisher) (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 (Índice, 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; As cadeias de carateres podem estar em todas as unidades suportadas pelo Microsoft Publisher (por exemplo, "2,5 pol").

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.

  • Last updated on