Compartilhar via


Propriedade ShapeRange.ConnectionSiteCount (PowerPoint)

Retorna o número de locais de conexão na forma especificada. Somente leitura.

Sintaxe

expressão. ConnectionSiteCount

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

Valor de retorno

Longo

Exemplo

Este exemplo adiciona dois retângulos a myDocument e os interliga com dois conectores. As extremidades iniciais dos conectores são anexadas ao local de conexão um, no primeiro retângulo; as extremidades finais são anexadas ao primeiro e ao último local de conexão do segundo retângulo.

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)

lastsite = secondRect.ConnectionSiteCount

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

End With

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=lastsite

End With

Confira também

Objeto ShapeRange

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.