PowerPoint VBA教程:SetPosition方法

设置由 Index 指定的结点的位置。请注意,由于结点的编辑类型的不同,该方法可能影响相邻结点的位置。

expression.SetPosition(Index, X1, Y1)

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

Index  必选。Long 类型。要设置位置的结点。

X1,Y1  必选。Single 类型。新结点相对于文档左上角的位置,以磅为单位。

VBA示例

本示例将myDocument 中第三个形状的第二个结点向右移 200 磅、向下移 300 磅。第三个形状必须是任意多边形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
    .SetPosition 2, currXvalue + 200, currYvalue + 300
End With

上页:PowerPoint VBA教程:SetPasswordEncryptionOptions方法 下页:PowerPoint VBA教程:SetSegmentType方法

PowerPoint VBA教程:SetPosition方法

PowerPoint VBA教程:SetSegmentType方法 PowerPoint VBA教程:SetShapesDefaultProperties方法
PowerPoint VBA教程:SetThreeDFormat方法 PowerPoint VBA教程:SmallScroll方法
PowerPoint VBA教程:Solid方法 PowerPoint VBA教程:Split方法
PowerPoint VBA教程:SwapNode方法 PowerPoint VBA教程:ToggleVerticalText方法
PowerPoint VBA教程:TransferChildren方法 PowerPoint VBA教程:TrimText方法
PowerPoint VBA教程:TwoColorGradient方法 PowerPoint VBA教程:Ungroup方法
PowerPoint VBA教程:Unselect方法 PowerPoint VBA教程:Update方法
PowerPoint VBA教程:UpdateLinks方法 PowerPoint VBA教程:UseDefaultFolderSuffix方法
PowerPoint VBA教程:UserPicture方法 PowerPoint VBA教程:UserTextured方法
PowerPoint VBA教程:Value方法 PowerPoint VBA教程:WebPagePreview方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号