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
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.