DocumentWindow.RangeFromPoint 方法 (PowerPoint)

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

語法

表情。距離點 (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 支援與意見反應。