RangeFromPoint 方法

返回位于指定位置（通过屏幕上的坐标对指定）上的 Shape 对象。如果该坐标对所指定的位置上没有任何形状，则此方法将返回 Nothing。

expression  必选。该表达式返回一个 DocumentWindow 对象。

x  必选。Long 类型。从屏幕左边缘到该点的横向距离（单位：像素）。

y  必选。Long 类型。从屏幕上边缘到该点的纵向距离（单位：像素）。

示例

本示例使用坐标 (288, 100) 向第一张幻灯片中添加一个新的五角星。然后，再将坐标由单位磅转换为像素，并使用 RangeFromPoint 方法返回一个对该新对象的引用，最后更改此五角星的填充色。

Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object

ActivePresentation.Slides(1).Shapes _
    .AddShape(msoShape5pointStar, 288, 100, 100, 72).Select
myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)