PowerPoint VBA教程:RangeFromPoint方法

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

expression.RangeFromPoint(x, y)

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

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

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

VBA示例

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

上页:PowerPoint VBA教程:Range方法 下页:PowerPoint VBA教程:Regroup方法

PowerPoint VBA教程:RangeFromPoint方法

PowerPoint VBA教程:Regroup方法 PowerPoint VBA教程:ReloadAs方法
PowerPoint VBA教程:Remove方法 PowerPoint VBA教程:RemoveBaseline方法
PowerPoint VBA教程:RemovePeriods方法 PowerPoint VBA教程:Replace方法
PowerPoint VBA教程:ReplaceNode方法 PowerPoint VBA教程:ReplyWithChanges方法
PowerPoint VBA教程:RerouteConnections方法 PowerPoint VBA教程:ResetRotation方法
PowerPoint VBA教程:ResetSlideTime方法 PowerPoint VBA教程:RotatedBounds方法
PowerPoint VBA教程:RtlRun方法 PowerPoint VBA教程:Run方法
PowerPoint VBA教程:Runs方法 PowerPoint VBA教程:Save方法
PowerPoint VBA教程:SaveAs方法 PowerPoint VBA教程:SaveCopyAs方法
PowerPoint VBA教程:ScaleHeight方法 PowerPoint VBA教程:ScaleWidth方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号