PowerPoint) (DocumentWindow.RangeFromPoint 方法

會傳回 Shape 物件位於螢幕位置座標組所指定的點。 如果沒有任何圖形位於指定的座標組，則方法會傳回 Nothing 。

語法

運算式。RangeFromPoint (x， y)

表達 代表 DocumentWindow 物件的 變數。

參數

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

範例

本範例會在使用座標 (288，100) 一張投影片中新增新的 5 角星形。 然後將那些座標從點轉換成像素、 使用 RangeFromPoint 方法傳回的新物件的參照並變更星號的填滿色彩。 請注意，除非您逐步執行程式碼，可能指向 方法的錯誤，否則此範例無法運作。 除非逐步執行程式碼，否則要設定 myShape 物件參照的倒數第二行會在執行時間失敗。

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)

另請參閱

DocumentWindow 物件

支援和意見反應

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