Shapes.AddConnector method (Project) (Método Shapes.AddConnector [Projeto])

Cria uma conexão e devolve um objeto Forma que representa a nova conexão.

Sintaxe

expressão. AddConnector (tipo, 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, relativa 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 final do conector.
EndY	Obrigatório	Single	A posição vertical (em pontos) do ponto final 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 uma conexão a outras formas no relatório (ConnectorFormat.BeginConnect e ConnectorFormat.EndConnect) não funcionam. Utilize apenas os parâmetros AddConnector para posicionar o conector. Para obter mais informações, veja a propriedade ConnectorFormat .

Exemplo

O exemplo seguinte cria um relatório que contém duas formas de nuvem e, em seguida, adiciona uma linha de conexão curva azul-verde com 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

Shapes ObjectShape ObjectConnectorFormat PropertyAutoShapeType PropertyMsoConnectorType

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.