RangeFromPoint メソッド (Excel)Window.RangeFromPoint method (Excel)

画面座標の指定したペアに配置されている**図形** または**Range** オブジェクトを返します。Returns the Shape or Range object that is positioned at the specified pair of screen coordinates. 指定した座標に図形がない場合、このメソッドはNothingを返します。If there isn't a shape located at the specified coordinates, this method returns Nothing.

構文Syntax

RangeFromPoint(x, y)expression.RangeFromPoint (x, y)

Window オブジェクトを表す変数を取得します。expression A variable that represents a Window object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
xx 必須Required LongLong 画面の左端から目的のポイントまでの横方向の距離をピクセル単位で指定します。The value (in pixels) that represents the horizontal distance from the left edge of the screen, starting at the top.
yy 必須Required LongLong 画面の上端から目的のポイントまでの縦方向の距離をピクセル単位で指定します。The value (in pixels) that represents the vertical distance from the top of the screen, starting on the left.

戻り値Return value

ObjectObject

Example

次の使用例は、マウス ポインターが指す図形がグラフ、線、または図である場合、代替テキストを返します。This example returns the alternative text for the shape immediately below the mouse pointer if the shape is a chart, line, or picture.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.