Método Shapes.AddConnector (Project)

  • Artigo

Cria um conector e retorna um objeto Shape que representa o novo conector.

Sintaxe

expressão. AddConnector (Type, BeginX, BeginY, EndX, EndY)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Type Obrigatório MsoConnectorType O tipo de conector. Pode ser uma das seguintes constantes: msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve ou msoConnectorStraight.
InícioX Obrigatório Single A posição horizontal (em pontos) do ponto de partida do conector, em relação ao canto superior esquerdo do documento.
InícioY Obrigatório Single A posição vertical (em pontos) do ponto de partida do conector.
EndX Obrigatório Single A posição horizontal (em pontos) do ponto de extremidade do conector.
EndY Obrigatório Single A posição vertical (em pontos) do ponto de extremidade do conector.
Tipo Obrigatório MSOCONNECTORTYPE
InícioX Obrigatório FLOAT
InícioY Obrigatório FLOAT
EndX Obrigatório FLOAT
EndY Obrigatório FLOAT
Nome Obrigatório/Opcional Tipo de dados Descrição

Valor de retorno

Formato

Comentários

Observação

No Project, os métodos para anexar o início e o fim de um conector a outras formas no relatório (ConnectorFormat.BeginConnect e ConnectorFormat.EndConnect) não funcionam. Use apenas os parâmetros AddConnector para posicionar o conector. Para obter mais informações, consulte a propriedade ConnectorFormat .

Exemplo

O exemplo a seguir cria um relatório que contém duas formas de nuvem e adiciona uma linha de conector curvo azul-verde que tem dois pontos de largura.

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

Confira também

Propriedade Shapes ObjectConnectorFormat PropertyAutoShapeTypeMsoConnectorType

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.