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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour