Window.RangeFromPoint (Word)

Devuelve el objeto Range o Shape que se encuentra en el punto especificado por el par de coordenadas de posición de pantalla.

Si no se encuentra ningún intervalo o forma en el par de coordenadas especificado, el método devuelve 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

Estos son los argumentos con nombre :

x (Long) - Distancia horizontal, en píxeles, desde el borde izquierdo de la pantalla hasta ese punto.

y (Long) - Distancia vertical, en píxeles, desde la parte superior de la pantalla al punto.