Propiedad ShapeRange.ConnectionSiteCount (Excel)

Devuelve el número de sitios de conexión de la forma especificada. Long de sólo lectura.

Sintaxis

expresión. ConnectionSiteCount

Expresión Expresión que devuelve un objeto ShapeRange .

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 = Worksheets(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

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.