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

VBA之AddConnector 方法

Admin | 2015-2-20 10:38:00 | ReadNums | 1329 | 标签 PowerPoint教程 | 打印本页
     

  AddConnector 方法

  expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)

  expression  必选。该表达式返回“应用于”列表中的对象之一。

  Type  必选。MsoConnectorType 类型。连接符的类型。

  MsoConnectorType 可以是下列 MsoConnectorType 类型常数之一。
  msoConnectorCurve
  msoConnectorElbow
  msoConnectorStraight
  msoConnectorTypeMixed

  BeginX  必选。Single 类型。连接符的起点相对于幻灯片左边缘的水平位置(以磅为单位)。

  BeginY  必选。Single 类型。连接符的起点相对于幻灯片上边缘的垂直位置(以磅为单位)。

  EndX  必选。Single 类型。连接符的终点相对于幻灯片左边缘的水平位置(以磅为单位)。

  EndY  必选。Single 类型。连接符的终点相对于幻灯片上边缘的垂直位置(以磅为单位)。

  说明:将一个连接符连接到某个形状时,如果必要,该连接符的长度和位置会自动调整。因此,如果要将一个连接符连接到其他形状,则与添加该连接符时指定的位置和长度无关。

  示例

  本示例在 myDocument 中添加两个矩形,然后用曲线连接符将它们连接起来。请注意,将连接符连接到矩形上时,连接符的长度和位置会自动调整;因此,它与添加标注时指定的位置和长度是无关的(长度不能为零)。

  Sub NewConnector()

    Dim shpShapes As Shapes
    Dim shpFirst As Shape
    Dim shpSecond As Shape

    Set shpShapes = ActivePresentation.Slides(1).Shapes
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=100, Top:=50, Width:=200, Height:=100)
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=300, Top:=300, Width:=200, Height:=100)
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1
        .Parent.RerouteConnections
    End With

  End Sub


问题未解决:搜索文章

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
感谢大家的支持。
20xx年x月x日

……