Compartir a través de

Objeto ConnectorFormat (Publicador)

Contiene propiedades y métodos aplicables a conectores. Un conector es una línea que une dos formas en puntos denominados sitios de conexión. Si se reorganizan las formas que están conectadas, la geometría del conector se ajusta automáticamente para que las formas permanezcan conectadas.

Comentarios

Utilice la propiedad ConnectorFormat de la forma objeto o ShapeRange colección, para devolver un objeto ConnectorFormat.

Utilice los métodos BeginConnect y EndConnect métodos del objeto ConnectorFormat para unir los extremos del conector a otras formas de la publicación.

Utilice el RerouteConnections método del objeto Shape y la colección ShapeRange para buscar automáticamente la ruta más corta entre las dos formas unidas por el conector.

Use la propiedad Connector para determinar si una forma es un conector.

Nota:

Al agregar un conector a la colección Shapes, se asigna un tamaño y una posición, pero éstos se ajustan automáticamente al unir el principio y el final del conector a otras formas de la colección. Por lo tanto, si tiene previsto adjuntar un conector a otras formas, el tamaño inicial y la posición que especifique no son pertinentes. Del mismo modo, se especifican los sitios de conexión de una forma a unir el conector cuando lo, pero utiliza el método RerouteConnections después el conector puede cambiar los sitios de conexión se une el conector, haciendo que su opción original de los sitios de conexión sea irrelevante.

Ejemplo:

En el ejemplo siguiente se agregan dos rectángulos a la publicación activa y, a continuación, se conectan con un conector curvado.

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.RerouteConnections 
End With

Métodos

Propiedades

Consulte también

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.

  • Last updated on