Método Window.RangeFromPoint (Word)
Retorna o objeto Range ou Shape que está localizado no ponto especificado pelo par de coordenadas de posição na tela.
Sintaxe
expressão. RangeFromPoint (x, y)
expressão Obrigatório. Uma variável que representa um objeto Window.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| x | Obrigatório | Long | A distância horizontal (em pixels) da borda esquerda da tela até o ponto. |
| y | Obrigatório | Long | A distância vertical (em pixels) da parte superior da tela até o ponto. |
Valor de retorno
Objeto
Comentários
Se nenhum intervalo ou forma estiver localizada no par de coordenadas especificado, o método retornará Nothing.
Exemplo
Este exemplo cria um novo documento e adiciona uma estrela de cinco pontas. Em seguida, ele obtém a localização de tela da forma e calcula onde o centro da forma é. Usando essas coordenadas, o exemplo usa o método RangeFromPoint para retornar uma referência à forma e alterar sua cor de preenchimento.
Dim pLeft As Long
Dim pTop As Long
Dim pWidth As Long
Dim pHeight As Long
Dim newShape As Object
Dim newDoc As New Document
With newDoc
.Shapes.AddShape msoShape5pointStar, _
288, 100, 100, 72
.ActiveWindow.GetPoint pLeft, pTop, _
pWidth, pHeight, .Shapes(1)
Set newShape = .ActiveWindow.RangeFromPoint(pLeft _
+ pWidth * 0.5, pTop + pHeight * 0.5)
newShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
End With
Confira também
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.