Méthode DocumentWindow.RangeFromPoint (PowerPoint)
Renvoie l’objet Shape situé au point spécifié par la paire de coordonnées indiquant la position sur l’écran. Si aucune forme ne se trouve à l’emplacement spécifié par la paire de coordonnées, la méthode renvoie la valeur Nothing.
Syntaxe
expression. RangeFromPoint (x, y)
Expression Variable qui représente un objet DocumentWindow .
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. |
Exemple
Cet exemple montre comment ajouter une étoile à cinq branches dans la première diapositive aux coordonnées (288, 100). Il convertit ensuite ces coordonnées en pixels (alors qu’elles étaient exprimées en points), utilise la méthode RangeFromPoint pour renvoyer une référence au nouvel objet, puis modifie la couleur de remplissage de l’étoile. Notez que l’exemple ne fonctionne pas, sauf si vous parcourez pas à pas le code, en pointant éventuellement vers un bogue avec la méthode . L’avant-dernière ligne pour définir une référence à l’objet myShape échoue au moment de l’exécution, sauf si vous parcourez le code pas à pas.
Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object
ActivePresentation.Slides(1).Shapes _
.AddShape(msoShape5pointStar, 288, 100, 100, 72).Select
myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
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.