Partager via


Méthode 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.

Syntaxe

expression. RangeFromPoint (x, y)

expression Obligatoire. Variable qui représente un objet Window.

Parameters

Nom Requis/Facultatif Type de données Description
x Obligatoire Entier long Distance horizontale (en pixels) entre le bord gauche de l'écran et le point.
y Obligatoire Entier long Distance verticale (en pixels) entre le haut de l'écran et le point.

Valeur renvoyée

Objet

Remarques

Si aucune plage ni aucune forme se trouve au niveau de la paire de coordonnées spécifiée, la méthode renvoie la valeur Nothing.

Exemple

Cet exemple crée un nouveau document et ajoute une étoile à 5. Ensuite, il obtient l'emplacement de l'écran de la forme et calcule où le centre de la forme est. À l'aide de ces coordonnées, l'exemple utilise la méthode RangeFromPoint pour renvoyer une référence à la forme et modifier sa couleur de remplissage.

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

Voir aussi

Window, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.