Window.RangeFromPoint (Word)

Renvoie l'objet Range ou Shape qui se trouve au point spécifié par la paire de coordonnées de position écran.

Si aucune plage ou forme n’est située au niveau de la paire de coordonnées spécifiée, la méthode renvoie la valeur 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

Les arguments nommés :

x (Long) - Distance horizontale (en pixels) entre le bord gauche de l'écran et le point.

y (Long) - Distance verticale (en pixels) entre le haut de l'écran et le point.