expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)
expression Required. An expression that returns one of the objects in the Applies To list.
Type Required MsoConnectorType. The type of connector to add.
| MsoConnectorType can be one of these MsoConnectorType constants. |
| msoConnectorCurve Adds a curved connector. |
| msoConnectorElbow Adds an elbow-shaped connector. |
| msoConnectorStraight Adds a straight-line connector. |
| msoConnectorTypeMixed Not used with this method. |
BeginX Required Variant. The x-coordinate of the beginning point of the connector.
BeginY Required Variant. The y-coordinate of the beginning point of the connector.
EndX Required Variant. The x-coordinate of the ending point of the connector.
EndY Required Variant. The y-coordinate of the ending point of the connector.
Remarks
For the BeginX, BeginY, EndX, and EndY arguments, numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").
The new connector isn't connected to any other shape; use the BeginConnect and EndConnect methods to connect the new connector to another shape.
Example
The following example adds a new straight-line connector to the first page of the active publication.
Dim shpConnect As Shape
Set shpConnect = ActiveDocument.Pages(1).Shapes.AddC onnector _
(Type:=msoConnectorStraight, _
BeginX:=144, BeginY:=144, _
EndX:=180, EndY:=72)