Window.RangeFromPoint (Word)

Retorna o objeto Range ou Shape que está localizado no ponto especificado pelo par de coordenadas de posição na tela.

Se nenhum intervalo ou forma estiver localizada no par de coordenadas especificado, o método retornará Nothing.

RangeFromPoint (x, y)

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

Arguments

O seguinte argumento é opcional

x (Long) - A distância horizontal (em pixels) da borda esquerda da tela até o ponto.

y (Long) - A distância vertical (em pixels) da parte superior da tela até o ponto.