Word VBA教程:RangeFromPoint方法

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

expression.RangeFromPoint(x, y)

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

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

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

VBA示例

本示例可实现的功能是:新建一个文档,并在其中添加一个五角星。然后便获取该图形的屏幕位置并计算其中心位置。用这些坐标(本示例使用 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号