Método Shapes.AddConnector (PowerPoint)

Cria um conector. Retorna um objeto Shape que representa o novo conector. Quando um conector é adicionado, ele não está conectado a nada. Use os métodos BeginConnect e EndConnect para anexar o início e no final de um conector a outras formas no documento.

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.
InícioX	Obrigatório	Single	A posição horizontal, medida em pontos, do ponto inicial do conector em relação à borda esquerda do slide.
InícioY	Obrigatório	Single	A posição vertical, medida em pontos, do ponto inicial do conector em relação à borda superior do slide.
EndX	Obrigatório	Single	A posição horizontal, medida em pontos, do ponto final do conector em relação à borda esquerda do slide.
EndY	Obrigatório	Single	A posição vertical, medida em pontos, do ponto final do conector em relação à borda superior do slide.

Valor de retorno

Forma

Comentários

Quando você anexa um conector à uma forma, o tamanho e a posição do conector são ajustados automaticamente, se necessário. Portanto, se você vai anexar um conector a outras formas, a posição e as dimensões especificadas ao adicionar o conector serão irrelevantes.

Exemplo

Este exemplo adiciona dois retângulos a myDocument e os conecta por meio de um conector curvo. Observe que quando você anexa o conector aos retângulos, o tamanho e a posição do conector são ajustados automaticamente; por isso a posição e as dimensões que você especificar ao adicionar o texto explicativo são irrelevantes (as dimensões devem ser diferentes de zero).

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

Confira também

Objeto Shapes

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.