Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Devolve a distância do limite superior da forma ou do intervalo de formas a partir da margem superior da página mais à esquerda na vista atual como um Único nas unidades especificadas.
Sintaxe
expressão. GetTop (Unidade)
expressão Uma variável que representa um objeto Shape.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Unit | Obrigatório | PbUnitType | A unidade na qual a distância deve ser retornada. Pode ser uma das constantes PbUnitType declaradas na biblioteca de tipos do Microsoft Publisher. |
Valor de retorno
Único
Comentários
Use o método GetLeft para retornar a distância da margem esquerda de uma forma ou de um intervalo de formas da margem esquerda da página mais à esquerda na exibição atual.
Exemplo
O exemplo seguinte apresenta as distâncias entre as margens esquerda e superior da página mais à esquerda e as margens superiores de um intervalo de formas que consistem em todas as formas na primeira página. A distância é expressa em polegadas (até o centésimo mais próximo).
With ActiveDocument.Pages(1).Shapes.Range
MsgBox "Distance from left: " _
& Format(.GetLeft(Unit:=pbUnitInch), "0.00") _
& " in" & vbCr _
& "Distance from top: " _
& Format(.GetTop(Unit:=pbUnitInch), "0.00") _
& " in"
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.