April 2006
Beginner
1114 pages
98h 16m
English
shape.ConnectorFormat
For connector shapes, returns a ConnectorFormat object. For other shape types, causes an error. The following code changes all of the connections on a worksheet to use the curved connector style:
Sub ChangeConnectors( )
Dim ws As Worksheet, s As Shape
Set ws = ActiveSheet
For Each s In ws.Shapes
' If the shape is a connector, change its style.
If s.Connector Then _
s.ConnectorFormat.Type = msoConnectorCurve
Next
End SubRead now
Unlock full access