通过

Shapes.AddConnector 方法 (Project)

创建一个连接线并返回一个 Shape 对象，表示新连接符。

语法

表达式。AddConnector (Type、 BeginX、 BeginY、 EndX、 EndY)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
Type 必需 MsoConnectorType 连接符的类型。 可以是以下常量之一： msoConnectorElbow、 msoConnectorTypeMixed、 msoConnectorCurve 或 msoConnectorStraight。
BeginX 必需 Single (连接符起点) 相对于文档左上角的水平位置（以磅为单位）。
BeginY 必需 Single 垂直位置 (，以磅为单位，) 连接符的起点。
EndX 必需 Single 连接符端点) 的水平位置 (磅。
EndY 必需 Single 垂直位置 (连接符终结点) 磅。
类型 必需 MSOCONNECTORTYPE
BeginX 必需 FLOAT
BeginY 必需 FLOAT
EndX 必需 FLOAT
EndY 必需 FLOAT
名称 必需/可选 数据类型 说明

返回值

Shape

备注

注意

在 Project 中，将连接符的开头和结尾附加到报表中的其他形状的方法 (ConnectorFormat.BeginConnect 和 ConnectorFormat.EndConnect) 不起作用。 仅使用 AddConnector 参数来定位连接器。 有关详细信息，请参阅 ConnectorFormat 属性。

示例

以下示例创建一个包含两个云形状的报表，然后添加一条两磅宽的蓝绿曲线连接线。

Sub ConnectClouds()
    Dim shapeReport As Report
    Dim reportName As String
    Dim connectorShape As shape
    
    ' Add a report.
    reportName = "Cloud report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    Set connectorShape = shapeReport.Shapes.AddConnector(msoConnectorCurve, 80, 80, 130, 200)
        
    With connectorShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &HAAFF00
    End With
End Sub

另请参阅

Shapes 对象形状对象ConnectorFormat 属性AutoShapeType 属性MsoConnectorType

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。