大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

ShapeNode对象 ShapeNodes集合对象

Admin | 2013-8-27 8:26:24 | ReadNums | 1770 | 标签 PowerPoint教程 | 打印本页
     

  一、ShapeNode对象

  代表用户定义任意多边形的结点的几何外形和几何编辑属性。结点包括任意多边形的线段之间的顶点和曲线段的控制点。ShapeNode 对象是 ShapeNodes 集合的成员。ShapeNodes 集合包含任意多边形的所有结点。

  使用 ShapeNode对象

  使用 Nodes(index),返回一单一 ShapeNode 对象,此处 index 是结点索引号。如果在 myDocument 上第三个形状中的第一个结点是一个角的顶点,则以下示例使其成为平滑顶点。要使此示例运行,形状三必须是任意多边形。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes(3)
      If .Nodes(1).EditingType = msoEditingCorner Then
          .Nodes.SetEditingType 1, msoEditingSmooth
      End If
  End With

  二、ShapeNodes集合对象

  指定任意多边形中所有 ShapeNode 对象的集合。每个 ShapeNode 对象代表任意多边形段间的结点或曲线段的控制点。可以手动或使用 BuildFreeform 和 ConvertToShape 方法创建任意多边形。

  使用 ShapeNodes 集合

  使用 Nodes 属性返回 ShapeNodes 集合。以下示例在 myDocument 上删除第三个形状三中的第四个结点。要使该示例运行,第三个形状至少是一有四个结点的任意多边形。

  Set myDocument = ActivePresentation.Slides(1)
  myDocument.Shapes(3).Nodes.Delete 4

  使用 Insert 方法创建一新结点并且将此结点添加到 ShapeNodes 集合中。以下示例在 myDocument 上的第三个形状中的第四个结点之后添加一带有曲线段的平滑结点。要使此示例运行,第三个形状必须是至少有四个结点的任意多边形。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes(3).Nodes
      .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
  End With

  使用 Nodes(index),返回一单一 ShapeNode 对象,此处 index 是结点索引号。如果在 myDocument 上第三个形状中的第一个结点是一个角部顶点,则以下示例使其成为平滑顶点。要使此示例运行,第三个形状必须是任意多边形。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes(3)
      If .Nodes(1).EditingType = msoEditingCorner Then
          .Nodes.SetEditingType 1, msoEditingSmooth
      End If
  End With


问题未解决:在线咨询我要在线咨询问题

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日