设置指定的 索引 节点的位置。 请注意,根据节点的编辑类型,本方法可能影响相邻节点的位置。
语法
表达式。SetPosition (Index、 X1、 Y1)
表达 一个代表 ShapeNodes 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Index | 必需 | Long | 要设置其位置的节点。 |
X1 | 必需 | Single | 新节点相对于文档左上角的位置 (以 磅) 。 |
Y1 | 必需 | Single | 新节点相对于文档左上角的位置(以磅为单位)。 |
示例
本示例将 myDocument 上第三个形状中的节点 2 移到右侧 200 磅,将节点向下移动 300 磅。 第三个形状必须是任意多边形。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
pointsArray = .Item(2).Points
currXvalue = pointsArray(0, 0)
currYvalue = pointsArray(0, 1)
.SetPosition 2, currXvalue + 200, currYvalue + 300
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。