DocumentWindow.RangeFromPoint メソッド (PowerPoint)

画面の位置 座標 のペアで指定された位置にある Shape オブジェクトを返します。 指定された座標に図形がない場合、メソッド Nothing を返します。

構文

.RangeFromPoint (x, y)

DocumentWindow オブジェクトを 表す変数

パラメーター

名前 必須 / オプション データ型 説明
x 必須 Long 画面の左端からその位置までの水平方向の距離 (ピクセル単位) を指定します。
y 必須 Long 画面の上端から目的のポイントまでの垂直方向の距離をピクセル単位で指定します。

次の使用例は、新しい 5 つ星を 1 つの座標 (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)

関連項目

ドキュメント ウィンドウのオブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。