Propiedad ShapeRange.ConnectionSiteCount (PowerPoint)

Devuelve el número de sitios de conexión de la forma especificada. Solo lectura.

Sintaxis

expresión. ConnectionSiteCount

Expresión Variable que representa un objeto ShapeRange .

Valor devuelto

Long

Ejemplo:

En este ejemplo se agregan dos rectángulos a myDocument y se unen con dos conectores. Los inicios de ambos conectores se conectan al sitio de conexión uno del primer rectángulo; los finales de los conectores se conectan al primer y último sitio de conexión del segundo rectá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

Consulte también

Objeto ShapeRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.