Método ConnectorFormat.BeginConnect (PowerPoint)

Conecta o início do conector especificado a uma forma específica.

Sintaxe

expressão. BeginConnect( _ConnectedShape_, _ConnectionSite_ )

Expressão Uma variável que representa um objeto ConnectorFormat .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ConnectedShape	Obrigatório	Forma	A forma para anexar o início do conector. O objeto Shape especificado deve ser no mesmo conjunto de formas que o conector.
ConnectionSite	Obrigatório	Long	Um site de conexão na forma especificada pelo ConnectedShape. Deve ser um inteiro entre 1 e o inteiro retornado pela propriedade ConnectionSiteCount da forma especificada. Se desejar que o conector encontre automaticamente o caminho mais curto entre as duas formas de se conectar, especifique qualquer número inteiro válido para este argumento e, em seguida, use o método RerouteConnections depois que o conector é anexado às formas em ambas as extremidades.

Comentários

Se já houver uma conexão entre o início do conector e outra forma, essa conexão será desfeito. Se o início do conector não estiver posicionado no site de conexão especificado, esse método Move o início do conector para o site de conexão e ajusta o tamanho e posição do conector. Use o método EndConnect para anexar a extremidade do conector a uma forma.

Quando você anexa um conector a um objeto, o tamanho e a posição do conector são ajustadas automaticamente, caso seja necessário.

Exemplo

Este exemplo adiciona dois retângulos ao primeiro slide da apresentação ativa e os conecta com um conector curvo. Observe que o método RerouteConnections torna irrelevantes quais valores fornecidos para os argumentos ConnectionSite usados com os métodos BeginConnect e EndConnect.

Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

Confira também

Objeto ConnectorFormat

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.