通过

DocumentWindow.RangeFromPoint 方法 (PowerPoint)

  • 项目

返回 Shape 对象，该对象在屏幕上的位置坐标对指定的点。 如果在坐标对指定的位置没有形状，然后该方法将返回 Nothing 。

语法

表达式。RangeFromPoint (x， y)

表达 一个代表 DocumentWindow 对象的变量。

参数

名称 必需/可选 数据类型 说明
x 必需 Long 从屏幕左边缘到该点的水平距离（以像素为单位）。
y 必需 Long 从屏幕顶部到该点的垂直距离（以像素为单位）。

示例

本示例使用坐标 (288，100) 一张幻灯片添加新的五角星。 然后将这些坐标从磅转换为像素，使用 RangeFromPoint 方法来返回到该新对象的引用并更改填充颜色的星。 请注意，该示例不起作用，除非你单步执行代码，并且可能使用 方法指向 bug。 设置对对象 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。