返回介绍

RangeFromPoint 方法

发布于 2019-10-04 14:08:00 字数 894 浏览 1059 评论 0 收藏 0

返回位于指定位置(通过屏幕上的坐标对指定)上的Shape 对象。如果该坐标对所指定的位置上没有任何形状,则此方法将返回Nothing

expression.RangeFromPoint(x,y)

expression必选。该表达式返回一个DocumentWindow 对象。

x必选。Long 类型。从屏幕左边缘到该点的横向距离(单位:像素)。

y必选。Long 类型。从屏幕上边缘到该点的纵向距离(单位:像素)。

示例

本示例使用坐标 (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)

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文