Window.RangeFromPoint メソッド (Excel)

  • [アーティクル]

指定した画面座標のペアに配置されている Shape オブジェクトまたは Range オブジェクトを返します。 指定した座標に図形がない場合、このメソッドは Nothing を返します。

構文

式。RangeFromPoint (x, y)

式Window オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
x 必須 長整数型 (Long) 画面の左端から目的のポイントまでの横方向の距離をピクセル単位で指定します。
y 必須 長整数型 (Long) 画面の上端から目的のポイントまでの縦方向の距離をピクセル単位で指定します。

戻り値

Object

例

次の使用例は、マウス ポインターが指す図形がグラフ、線、または図である場合、代替テキストを返します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。