DocumentWindow.RangeFromPoint メソッド (PowerPoint)

  • [アーティクル]

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

構文

式。RangeFromPoint (x, y)

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

パラメーター

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

例

次の使用例は、新しい 5 つ星を 1 つの座標 (288, 100) を使用してスライドに追加します。 これらの座標をポイントからピクセルに変換、 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)

関連項目

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

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

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