RangeFromPoint 方法

返回 Range 或 Shape 对象，该对象位于由屏幕位置坐标对指定的位置。如果在坐标对指定的位置中没有区域或图形，则本方法返回 Nothing。

expression   必需。该表达式返回一个 Window 对象。

x   Long 类型，必需。从屏幕左边缘到该点的水平距离（以像素为单位）。

y   Long 类型，必需。从屏幕顶部边缘到该点的垂直距离（以像素为单位）。

示例

本示例可实现的功能是：新建一个文档，并在其中添加一个五角星。然后便获取该图形的屏幕位置并计算其中心位置。用这些坐标（本示例使用 RangeFromPoint 方法）来返回一个到该图形的引用并且改变其填充颜色。

Dim pLeft As Long
Dim pTop As Long
Dim pWidth As Long
Dim pHeight As Long
Dim newShape As Object
Dim newDoc As New Document

With newDoc
    .Shapes.AddShape msoShape5pointStar, _
        288, 100, 100, 72
    .ActiveWindow.GetPoint pLeft, pTop, _
        pWidth, pHeight, .Shapes(1)
    Set newShape = .ActiveWindow.RangeFromPoint(pLeft _
        + pWidth * 0.5, pTop + pHeight * 0.5)
    newShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
End With