Word) (Window.RangeFromPoint 方法

會傳回位於資料點的 Range 或 Shape 物件的螢幕位置座標組所指定。

語法

運算式。RangeFromPoint (x， y)

需要 expression。 代表 Window 物件的變數。

參數

名稱	必要/選用	資料類型	描述
x	必要	Long	從螢幕左邊緣至該點的水平距離 (以像素為單位)。
y	必要	Long	從螢幕頂端至該點的垂直距離 (以像素為單位)。

傳回值

物件

註解

如果沒有任何範圍或圖案位於指定的座標組，則方法會傳回 Nothing 。

範例

本範例會建立新的文件並 5 角星形。 接著會取得圖形的螢幕位置並計算其中是圖形的中心。 使用這些座標，範例會使用 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

另請參閱

Window 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。