Метод Shapes.AddConnector (Project)

Создает соединитель и возвращает объект Shape , представляющий новый соединитель.

Синтаксис

expression. AddConnector (Type, Beginx, Beginy, EndX, Endy)

выражение: переменная, представляющая объект Shapes.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	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

См. также

Соединитель объекта фигуры фигурыобъектаFormat PropertyAutoShapeType PropertyMsoConnectorType

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.