Méthode DocumentWindow.RangeFromPoint (PowerPoint)

  • Article

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

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