Метод Shapes. Аддконнектор (Project)Shapes.AddConnector method (Project)

Создает соединитель и возвращает объект Shape , представляющий новый соединитель.Creates a connector and returns a Shape object the represents the new connector.

СинтаксисSyntax

Expression. Аддконнектор (Type, BeginX, Begin, EndX, енди)expression.AddConnector (Type, BeginX, BeginY, EndX, EndY)

выражение: переменная, представляющая объект Shapes.expression A variable that represents a Shapes object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ТипType ОбязательныйRequired MsoConnectorTypeMsoConnectorType Тип соединителя.The type of connector. Может быть одной из следующих констант: мсоконнекторелбов, мсоконнектортипемиксед, мсоконнекторкурвеили мсоконнекторстраигхт.Can be one of the following constants: msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve, or msoConnectorStraight.
BeginXBeginX ОбязательныйRequired SingleSingle Позиция по горизонтали (в пунктах) отправной точки соединителя относительно левого верхнего угла документа.The horizontal position (in points) of the connector's starting point, relative to the upper-left corner of the document.
BeginYBeginY ОбязательныйRequired SingleSingle Позиция по вертикали (в пунктах) отправной точки соединителя.The vertical position (in points) of the connector's starting point.
EndXEndX ОбязательныйRequired SingleSingle Позиция по горизонтали конечной точки соединителя (в пунктах).The horizontal position (in points) of the connector's end point.
ендиEndY ОбязательныйRequired SingleSingle Позиция по вертикали конечной точки соединителя (в пунктах).The vertical position (in points) of the connector's end point.
TypeType ОбязательныйRequired мсоконнектортипеMSOCONNECTORTYPE
BeginXBeginX ОбязательнаRequired FLOATFLOAT
BeginYBeginY ОбязательнаRequired FLOATFLOAT
EndXEndX ОбязательнаRequired FLOATFLOAT
ендиEndY ОбязательнаRequired FLOATFLOAT
ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription

Возвращаемое значениеReturn value

ShapeShape

ПримечанияRemarks

Примечание

В Project методы, позволяющие присоединять начало и конец соединителя к другим фигурам в отчете (ConnectorFormat. бегинконнект и ConnectorFormat. ендконнект), не работают.In Project, the methods to attach the beginning and end of a connector to other shapes in the report (ConnectorFormat.BeginConnect and ConnectorFormat.EndConnect) do not work. Для размещения соединителя можно использовать только параметры аддконнектор .You can use only the AddConnector parameters to position the connector. Дополнительные сведения см. в свойстве ConnectorFormat .For more information, see the ConnectorFormat property.

ПримерExample

В приведенном ниже примере создается отчет, который содержит две фигуры в облаке, а затем добавляется линия с изогнутым соединителем синего цвета с двумя точками.The following example creates a report that contains two cloud shapes, and then adds a blue-green curved connector line that is two points wide.

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

См. такжеSee also

Фигуры объекта Shape объектаConnectorFormat свойства аутошапетипе мсоконнектортипеShapes Object Shape Object ConnectorFormat Property AutoShapeType Property MsoConnectorType

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.