Méthode Window.RangeFromPoint (Excel)

Renvoie l’objet Shape ou Range positionné au niveau de la paire de coordonnées d’écran spécifiée. Si aucune forme n’est située aux coordonnées spécifiées, cette méthode renvoie Nothing.

Syntaxe

expression. RangeFromPoint (x, y)

Expression Variable qui représente un objet Window .

Parameters

Nom	Requis/Facultatif	Type de données	Description
x	Obligatoire	Long	Valeur (en pixels) représentant la distance horizontale par rapport au bord gauche de l'écran, en partant du haut.
y	Obligatoire	Long	Valeur (en pixels) représentant la distance verticale par rapport à la partie supérieure de l'écran, en partant de la gauche.

Valeur renvoyée

Objet

Exemple

Cet exemple montre comment renvoyer le texte de remplacement de la forme directement sous le pointeur de la souris si la forme est un graphique, une ligne ou une image.

Private Function AltText(ByVal intMouseX As Integer, _ 
 ByVal intMouseY as Integer) As String 
 Set objShape = ActiveWindow.RangeFromPoint _ 
 (x:=intMouseX, y:=intMouseY) 
 If Not objShape Is Nothing Then 
 With objShape 
 Select Case .Type 
 Case msoChart, msoLine, msoPicture: 
 AltText = .AlternativeText 
 Case Else: 
 AltText = "" 
 End Select 
 End With 
 Else 
 AltText = "" 
 End If 
End Function

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.