删除形状结点。
expression.Delete(Index)
expression 必选。该表达式返回一个 ShapeNodes 对象。
Index 必选。Long 类型。指定要删除的结点。该结点后的段也将被删除。若该结点是一条曲线的控制点,则该曲线及其所有结点将都被删除。
删除指定对象。
expression.Delete
expression 必选。该表达式返回“应用于”列表中的对象之一,ShapeNodes 和 Tags 对象除外。
试图删除表格中唯一的行或列会导致运行时错误。
本示例从活动演示文稿的第一张幻灯片中删除所有任意多边形。
With Application.ActivePresentation.Slides(1).Shapes
For intShape = .Count To 1 Step -1
With .Item(intShape)
If .Type = msoFreeform Then .Delete
End With
Next
End With