| Name | Type | Description |
|---|---|---|
| Smoothness |
Long
|
Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrCurveShape Then s.Curve.Nodes.All.Smoothen 20 End If Next s End Sub